A PROPOS DU CLUB 
Le Bureau 


J. Belin 
J. Belin 


HP-48 

L. Grand 

C. Vaillant 
G. Toublanc 


G. Toublanc 
G. Toublanc 


HP-71 


A. Aoufi 


HP-95 


J. Belin 
J. Belin 


MS-DOS 


J. Belin 


SEPTEMBRE 1992 
NUMERO 79 


Le numéro 40 F 


Editorial 
48SXTANT : Un autre Journal 
Periphériques et connectique 


Resolution de Polynômes 

La dernière trace 

Factorisation 

Assembleur : Les outils du debut (II) 
Coin des Codes 


Régression exponentielle multiple 


Les péripheriques du HP-95 
Du Saturn au 8086 (Acte I) 


Impression d'écran sur ThinkJet 








EDITORIAL 


Le jour même où la France votera pour, ou contre, le traité de Maastricht, un petit groupe de 
personnes tentera de poser une petite pierre à l'édifice Européen. En effet, au cours de la réunion de 
Londres, les présidents de la plupart des grands clubs Européens vont se réunir afin de discuter des 
méthodes permettant d'obtenir une meilleure coopération et des échanges d’informations plus 
systématiques entre les clubs utilisateurs. A cet effet, le club Hollandais PROMPT HP-GC propose 
de créer une structure officielle, regroupant les différents clubs, qui centraliserait et redistribuerait 
toutes les informations obtenues par les diférents membres. Il ne s’agirait bien sûr que d’un 
rapprochement des clubs, et non d’une fusion. Une telle structure permettrait aussi de pouvoir parler 
ensemble et d’une même voix au cours de nos contacts avec HP (à propos, quelle sera l’organisation 
de cette société dans l’Europe de Maastricht ?). Il va sans dire que PPC Paris ne peut être que 
favorable à l'établissement d’une telle structure, ou à toute autre organisation qui pourrait être créée 
au cours de cette réunion exceptionnelle. 


En attendant, un de nos problèmes actuels concerne la demande d’éventuels articles d'initiation à 
certains domaines précis, comme l’assembleur ou le C. En effet, l’irruption des rubriques HP-95 et 
MS-DOS, avec dès leurs débuts des articles relativement complexes, ont pu donner à certains 
l'impression d’être mis prématurément à l’écart. Si le problème ne s’est pas vraiment posé au temps 
de l’assembleur sur HP-71, cela est probablement dû au fait que tout le monde est parti de zéro au 
même momment, et qu’un échange constant d'informations, ainsi que l’excellente série d’articles de 
Jacques Baudier, ont permis a tous de pouvoir évoluer de façon relativement uniforme. Aujourd’hui, 
la situation est radicalement différente, car les compatibles IBM étant présents depuis très 
longtemps, l'éventail des compétences et des expériences est extrêmement large. Il parait donc 
évident qu’une série d’articles d’initiation à ces domaines est nécessaire. Malheureusement, le 
principal problème est que ces articles risquent de dépasser largement nos capacités de publication. 
En effet, une simple excursion sur les rayonnages des libraires montre que le plus simple des livres 
d’inititation au C ou à l’assembleur avoisine les 300 pages. Si nous publions, chaque mois, un article 
d'initiation de 6 ou 8 pages, il nous faudrait donc environ 40 numéros (soit quatre ans) pour faire 
quelque chose de sensiblement équivalent ! Durant cette periode, quelqu’un ayant acheté le livre en 
question sera surement devenu un expert dans le domaine. Ceci explique notre hésitation. D’un autre 
côté, il est peut être possible de faire des articles relativement courts, suffisants pour vous mettre sur 
les rails, mais nécessitant tout de même l’achat d’un livre. D’autre part, nous pensons que notre rôle 


est de publier des articles originaux, plutôt que des choses que nous pouvons trouver facilement 
ailleurs. 


À titre d’essai, nous donc avons décidé de contourner la difficulté en vous présentant, à partir de ce 
mois ci, une série d’articles d'initiation à l’assembleur 8086, spécialement orienté vers les personnes 
connaissant le Saturn sur HP-71. De part son aspect "comparatif" entre les deux microprocesseurs, 
nous obtenons le côté "original" et sa taille totale, ne devant pas excéder 30 ou 40 pages, devrait 
suffire aux personnes intéressées de pouvoir écrire des petits programmes. A leur charge, ensuite, 
d’aller plus loin en se procurant des livres plus complets. Si vous considérez que cette expérience est 
concluante, nous pourons bien sûr continuer avec un autre langage. 


Vous pouvez bien sûr nous faire part de votre conception de la chose, ainsi que vos éventuels désirs 
d'initiation à un domaine particulier, car, rappelons-le, ce n’est pas nous qui avons besoin de cette 


rubrique. 


En attendant, nous vous souhaitons une bonne lecture... 


Le Bureau 
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UN JOURNAL 
AU PAYS DU GOUDA 


Robert Pulluard, un français vivant aux Pays Bas, 
édite depuis quelque temps un journal exclusivement 
consacré à la HP48, 48SXTANT. Peut être le plus 
Européen des utilisateurs, il n’hésite pas consacrer 
une large place aux informations venant des clubs 
étrangers. 


Plutôt consacré aux programmes écrits en RPL, 
souvent orientés vers les programmes mathématiques, 
on y trouve aussi des tests de modules ou de logiciels 
et des problèmes de programation à résoudre. Le tout 
rédigé dans un ton souvent humoristique. 


Bien sûr, cette revue est rédigée en Français ! 
Vous pouvez l'obtenir en écrivant à : 
Robert Pulluard 
Lijsterlann 31 
2665 BLEISWLK 
Pays Bas 
L'abonnement de 6 numéros peut être obtenu 


moyennant un chèque de 132 F (en francs français). 


Jacques Belin (123) 


QUATRE BROCHES 
ET UN RAYON 


Voici quelques périphériques et accessoires communs 
aux HP48 et HP95, leur permettant de communiquer 
avec l'exterieur. 


Drive95 de Sparcom 
Très compact, ce lecteur peut lire des disquettes 
MS-DOS 3%" de 720Ko et 1.44Mo (déjà formatées). 


Connecté par la liaison RS-232, il est livré avec les 
drivers nécessaires au HP95 ou au HP48. Prix : 270 $ 
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JetEye de Extended Systems 


Ce boitier permet de connecter le HP95 ou le HP48 à 
une imprimante HP LaserJet II ou III, via la liaison 
infrarouge. Portée : environ 20 cm. Prix : 100$. 


Utilisés pour connecter le HP95 à une imprimante 
parallèle, les convertisseurs Série-Parallèle sont très 
simples d'utilisation, et utilisent les paramètres par 
défaut de la liaison série : 


Paralink 3 de Paragon Technologies 


De la taille d’un gros changeur de genre RS-232, ce 
convertisseur est le plus compact à notre 
connaissance. Prix : 800 F. 


SmartConverter de Smart Technology 


Plus gros que le précédent, ce convertisseur possède 
l'originalité d’être livré avec des drivers pour HP-48, 
permettant entre autre de reconnaitre les 
imprimantes IBM ou la Canon BJ10-e. Prix non 
communiqué. 


Cables en tous genres 


CMT commercialise un adaptateur permettant de 
connecter la HP à 4 connecteurs différents. Composé 
d’un cable comportant un connecteur 4 broches à une 
extrémité et un connnecteur spécial à l’autre, on peut 
y adapter 4 connecteurs différents : Un 9 broche 
femmelle, un 25 broches femelles (pour les 
connections à un PC) un 25 broches mâle (pour la 
connection à un modem) et une 25 broches mâle pour 
la connection à une imprimante série. Prix 37$. 


Enfin, EduCALC commercialise des cables équipés 
de connecteurs 4 broches, compatibles HP95 et 
HP48. parmi ceux-ci, un est equipé d’un connecteur 
muni d’un inverseur, permettant de brancher le HP 
aussi bien sur une imprimante que sur un autre 
ordinateur. Prix : 35$. Un autre, équipé au connecteur 
4 broches aux deux extrémités, permet de relier 2 HP, 
sans passer par la liaison infrarouge. prix : 23 $. Enfin, 
il est possible d’obtenir un cable simple, avec un 
connnecteur à une extrémité, et rien à l’autre. Ceci 
est utile si vous désirez l’équiper d’un connecteur 
spécial. Prix : 13$. 


Jacques Belin (123) 
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RESOLUTION DE POLYNOMES 


Je vous présente tous les outils que j’ai mis au point 
concernant les polynômes. En voici une brève 
description : racines d’un polynôme par la méthode 
de Bairstow, racines d’un polynôme par la méthode 
de Lagrange, division euclidienne de polynômes, 
polynôme caractéristique d’une matrice NxN, … 


Dans cet article, je vais d’abord vous exposer les 
méthodes de Bairstow et de Lagrange, puis je vais 
décrire lutilisation de chacun des programmes. Les 
listings viendront à la fin. Sauf mention expresse, les 
termes polynôme et racine désignent indifféremment 
des entités réelles ou complexes. 


La méthode de Bairstow : 


Soit un polynôme A(x) de la forme 


A(x) = ag +..+ ax + a 


Nous cherchons deux nombres p et q tels que 
A() = (-p'x-q)*B(x) + R(X) 


Si B(x)=bpx "2 +..+ b,.2 et R(x) = b,1(x-p) + bn 
on trouve : 


L7 = 
bi = 4] + p“bp 
by = ag + p“bg1 + q“bx.2 (k = 2,..,n) 


Pour p=2*a et q= -a2-b2, on a : 
p@x= a + i*b) = b,,1*(x-2*a) + b,,i = /-1 


Donc, pour b,,_.1=b,=0, on a p(x)=0. L’idée consiste 
à résoudre ce système par rapport à p et q à l’aide de 
la méthode de Newton. 

En posant cy= 2 PK + 1 ) (où ë est la derivée 
partielle par rapport à p), on obtient: 


co = bo 
= b1 


ck = D + P*Ck-1 + A“Ck-2 
On a 8qn-1)= Cn-3 €t ëq(Pn) = G-2 


Supposons que nous ayons des racines approchées 
a+i*b et a-i*b de A(x)=0, et que le facteur 
quadratique associé soit x*-p*x-q. Cela signifie que 
nous avons les racines approchées de b,,_,=b,,=0 et 
que nous recherchons des approximations améliorées 
p+het q+k. Les corrections h et k sont données par : 


Cn-2B + Cn-3k = -bh1 Cnqh + Cn2k = -b, 
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En résolvant par rapport à h et k on obtient 


h = (bnCn-3 - Pn-1Cn-2)/(Cn-2€n-2 - Cn-1€n-3) 
k = (bn-1Cn-1 - PnCn-2)/(Cn-2€n-2 - Cn-1©n-3) 


D'où la méthode. 
La méthode de Laguerre 


Contrairement à la méthode de Bairstow, où l’on 
cherchait à diviser notre polynôme par un polynôme 
du deuxième degré (dont il ne restait plus qu’à 
extraire les racines), la méthode de Laguerre cherche 
directement une racine. 


Si A=A(x) est un polynôme de degré n et si Rp est 
une approximation d’une racine de À, on va calculer 
la suite définie par Rx+1 = Rx + Wy 


Posons : 
We = -nACRL)/CA'CRL) + S*(C(n-1JA/(RL))2 
k k k Le 

+ nén-DACRLA' (RL) 1/ 


où P’ est la dérivée de P, P” est sa deuxième dérivée, 
et S est à choisir afin que le dénominateur soit le plus 
grand possible (en valeur absolue, bien entendu). 


Il suffit d’itérer jusqu’à ce que la valeur absolue de 
W, soit plus petite que la précision que l’on désire 
pour la racine. 


Utilisation des programmes 
J'utilise les conventions suivantes : 
NomDeProgramme (arg1 arg2 arg3 --> res1 res2) 


Dans cet exemple, argl est au niveau 3, arg2 au 
niveau 2 et arg3 au niveau 1 avant l’exécution du 
programme. Le programme fournit res1 au niveau 2 
et res2 au niveau 1. Si un ou une liste d'arguments est 
entre [], alors il(s) est (sont) optionnel(s). 


Les polynômes seront tous de la forme 
[ap a4 .… al 
où n= deg(4) et a, est le facteur multiplicatif de xn-k 


ATTENTION : LASTARG est nécessaire à certains de 
ces programmes. 


BAIRSTOW (A [po do] --> Adiv x1 x2) 


A : polynôme pp et qp : estimations pour p et q. Les 
valeurs par défaut sont pp=1 et qp=0. 

Adiv = A / (x2-p*x- q) 

xX1 et x) : racines de x - p*x-q 

LASTARG contient p< - 4*q.\ 


Les nombres qui s'affichent au haut de l'écran 
représentent (h2+ k2)1 (voir plus haut), ce qui nous 
permet de déterminer si le programme converge ou 
diverge (ce qui peut arriver en cas de grandes 
multiciplité d’une racine, par exemple). 


LAGUERRE (A [Rjj] --> x) 

A : polynôme 

Ro : valeur de Ry, Ro =0 par défaut. 
X : une racine de A. 


Dans la même optique que BAIRSTOW, les nombres 
qui s’affichent pendant l’exécution indiquent la valeur 
absolue des Wy. 


MULT (P Q--> P*Q) 


P Q : polynômes à multiplier 
P*Q : résultat de la multiplication de P et Q. 


Q2 (abc-> x1 x) 
ab c: facteurs de polynôme axZ + bx+c 


X1 X) : racines de +bx+c 
LASTARG contient la valeur b2 - 4ac. 


PVAL (A x -- A(x)) 

A : polynôme 

x : valeur de x 

A(X) : valeur du polynôme A au point x. 
ALLLAGU (A --> {x x) … Xn}) 


Extrait toutes les racines de A par la méthode de 
Laguerre. 


EUCLIDE (P Q--> P/OR) 
Division euclidienne de P par Q. 


P/Q : quotient (sous forme de polynôme) 
R : reste (sous forme de polynôme). 


HORNER (A x--> A/xr) 


A : polynôme 

x : valeur réelle ou complexe 

A/x: quotient de la division de A(t)/(t-x) 
r : reste de cette division. 


CARAC (M -> CM ’cm(t}”) 
Calcule le polynôme caractéristique cg d’une matrice 


carrée M. cg est sous la forme [ag … a,], alors que 
’cm(t)’ est sa forme algébrique en *. 


DPOL (A --> A) 


A : polynôme 
A’ : dérivée de A. 


+POL (A --> A’A(t)) 


A : polynôme 
’A(t)' : forme algébrique de A en *. 


TRACE (M --> tr) 


M : matrice carrée 
tr : trace de M. 


+V- ([a0 + an] --> [an + 4] 


Inverse l’ordre des éléments d’un vecteur. 
Les listings 


Je vous suggère de créer un répertoire POLY dans 
lequel vous allez placer tous ces programmes. Tout 
d’abord, je vous suggère de créer les variables Q, P, t 
(en minuscules) et EQ. Ceci évitera qu’elles 
n'apparaissent au début du répertoire plus tard. Je 
vous conseille ensuite de respecter l’ordre des 
programmes qui suivent. En effet, le premier tapé se 
retrouvera en dernière position dans le menu VAR. 
Bon courage … 


Ab, encore un détail. Il y a un programme nommé 
(pour des raisons historiques) *-V-. Ce nom s’obtient 
de la façon suivante : "71 142 CHR "V+'" + STR+ 


Puis, en tapant les listings, chaque fois que vous 
rencontrerez +V-, le plus simple est d’afficher le 
menu VAR et d’appuyer sur la bonne touche. 


+V- 


OBJ-+ OBJ+ € } 
SWAP ROT 

START SWAP + 
NEXT OBJ-+ -ARRY 


» 


TRACE 


« 
DUP SIZE OBJ+ 
DROP2 0 1 ROT 
FOR J 

OVER € J J } 
GET + 
NEXT 


» 
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+POL 


DUP +V+ OBJ+ 0 


SWAP OBJ-+ 
FOR 1 
SWAP 't' I 
SA RE ET 
STEP 
» 
DPOL 


« 


+V+ OBJ+ OBJ+ - 
DUP 2 
FOR I 
SWAP I * 
SWAP ROLLD LASTARG 
-1 
STEP 
ROLLD 
LASTARG 
IFERR -ARRY 
THEN 
1 -ARRY 
END 
+V-+ SWAP DROP 


CARAC 


DUP SIZE OBJ- 
DROP2 + N 
« N IDN 1N 
START OVER * 
TRACE NEG ROT ROT 
NEXT 
DROP2 N 
—+ARRY DUP € 1 } RDM 
2N 
FOR I 
DUP2 OVER 
1 1 - 1 +LIST RDM 
DOT SWAP I GET + 1 
/{ SWAP OBJ+ OBJ+ + 
—+ARRY 
NEXT 
OBJ+ OBJ-+ 
+ 1 SWAP +ARRY SWAP 
DROP +V+ -POL 
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HORNER 


SWAP 1 ROT NEG 2 
+ARRY EUCLIDE 1 GET 


EUCLIDE 


DUP2 SIZE OBJ-+ 

DROP SWAP SIZE DUP 

OBJ-+ + ROT - ROT 

ROT RDM ROT 1 4 

PICK 

FOR I 
DUP I GET 
ROT DUP I GET ROT 
SWAP / * LASTARG 4 
ROLL 4 ROLL - I ROT 
PUT SWAP OBJ-+ OBJ- 
DROP ROLLD LASTARG 
+ARRY SWAP 

NEXT 

SWAP DROP 

DUP2 O0 SWAP ROT 1 + 

DO 
GETI 4 ROLL 1 
+ SWAP 4 ROLLD ROT 
ROT 

UNTIL DUP 1 == END 

DROP2 -ARRY 

SWAP ROT 1 +LIST 

RDM SWAP 


ALLLAGU 


« 

{ } SWAP 2 OVER 

SIZE OBJ+ DROP 

START 
DUP 
LAGUERRE ROT OVER + 
ROT ROT HORNER DROP 

NEXT DROP 


PVAL 


SWAP OBJ-+ OBJ-+ + 
0 SWAP 3 DUP2 
IF > 
THEN 
FOR I 
I ROLL + 
I PICK * -1 


STEP 
ELSE 
DROP2 
END 
+ SWAP DROP 


Q2 


« 
OVER SQ 4 PICK 
ROT * 4 * - SWAP 
NEG DUP2 SWAP + 4 
PICK 2 * / SWAP 4 
ROLL / OVER - ROT 
DROP 


MULT 


DUP2 SIZE OBJ-+ 
DROP SWAP SIZE OBJ-+ 
DROP + 1 - 1 LIST 
RDM SWAP +V+ OBJ-+ 
OBJ+ - DUP 3 + ROLL 
ROT OVER * ROT 1 
SWAP 

START SWAP OBJ- 
OBJ+ DROP ROLLD 
LASTARG -ARRY ROT 
OVER * ROT + 

NEXT SWAP DROP 


LAGUERRE 


DUP TYPE 3 > 0 
IFT SWAP DUP DPOL 
DUP DPOL DUP SIZE 
OBJ+ + + FO F1 F2 N 
« 
Do 
FO OVER PVAL 
F1 3 PICK PVAL F2 4 
PICK PVAL OVER N 1 
- * SQ N DUP 1 - * 
ROT * 4 PICK * - / 
+ LASTARG - DUP2 
ABS SWAP ABS > SWAP 
ROT IFTE / N * SWAP 
OVER - SWAP 
UNTIL ABS DUP 1 
DISP .0000000001 < 
END 


BAIRSTOW 


IF DUP TYPE 3 > 
THEN 
10 
END 
ROT DUP SIZE 
OBJ+ DROP DUP 
1F-3%S 
THEN 
ROT DROP2 
SWAP DROP OBJ+ OBJ-+ 
+ 
IF == 
THEN 
Q2 
ELSE 
SWAP DROP 
NEG 
END 
ELSE + A N 
« 
1Q’ STO ’P' STO A 
Je) 
0 DUP DUP2 
1N2- 
FOR Z 
AZ 
GET OVER P * - ROT 
Q * - DUP 5 ROLL Q 
* - & PICKP*- 
ROT ROT 
NEXT 
ROT 4 
ROLL NEG DUP2 Q * 
NEG OVER P * + SWAP 
{€ 2 2 } -ARRY ROT 
ROT N 1 - N 
FOR Z 
AZ 
GET OVER P * - ROT 
Q * - 
NEXT 
è 
+ARRY * LASTARG 
DROP DET 
IF DUP ABS 
THEN 
SWAP 
OBJ+ DROP 3 PICK / 
SWAP ROT / 
ELSE 
DROP2 
+12 
END 
DUP2 
1P! STO+ ’Q’ STO+ 
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UNTIL ABS 
SWAP ABS + DUP 1 
DISP .0000000001 < 
END 
1PQa3 
+ARRY EUCLIDE DROP 
1Paa 
» 


END 


Laurent Grand (516) 


LA DERNIERE TRACE 


CARRE contient un jeu d’adresse qu’on lance en 
appuyant sur "DEBUT". Après avoir demandé le niveau 
(relancé par ENTER) un point s'allume et part vers la 
droite en laissant une trace derrière lui. Le but du jeu 
est de ne pas toucher sa trace ou les obstacles 
présents sur le terrain. 


On manipule les déplacements par les touches 
suivantes : 


- 7 : haut 

- 0 : bas 

- 6 : gauche 
- #* : droite 


Une fois que l’on a perdu le jeu s’arrète en inscrivant 
le score. 


CARRE 
DIR 
DEBUT 
« 
(0,0) + X 
« 
ERASE 
MNIVEAU (1,2,3)" nn 
INPUT DUP DUP 
CASE 
IF uqu == 
THEN 
NIV 
END 
IF upu == 
THEN 
NIV2 
END 
IF “zu == 
THEN 
NIV3 
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END 
END 
{€ # Oh # Oh } 
€ # 82h # 3Fh } BOX 
€ # Oh # Oh } PVIEW 
1 WAIT 
1000 1 BEEP 
(.1,0) 
1 MAXR 
FOR I 
DUP ’X' STO+ X DUP 
IF PIX? 
THEN 
CLEAR "PARCOURS : "! 
1 + DOERR 
END 
PIXON 
IF KEY 
THEN 
+2 
« 


DROP CHEMIN Z 10 / 


GET 
» 
END 
NEXT 
» 
» 
PPAR 
€ 
(-6.5,-3.1) 
(6.5,3.2) X O0 (0,0) 
FUNCTION Y 
} 
NIV3 
« 
1 10 
FOR I 
RAND 6.2 * 3.1 - 
RAND 3.2 * 1.6 - 
R+C RAND 5 * RAND 
360 * RAND 360 * 
ARC 
NEXT 
» 
NIV2 
« 
1 100 
FOR I 
PICT RAND 13 * 6.5 
- RAND 6.2 * 3.1 - 
R-C C-PX 158 CHR 2 
—+GROB GOR 
NEXT 


NIV 
« 
1 10 
FOR I 
RAND 13 * 6.5 - 
RAND 6.2 * 3.1 - 
R+C C-PX RAND 13 * 
6.5 - RAND 6.2 * 
3.1 - RC C-PX LINE 
NEXT 


» 


CHEMIN 
€ 
1:23 435 
(0,.1) €-.1,0) C.1,0) (0,-.1) 
} 
END 


Christophe Vaillant (523) 





FACTORISATION CHEZ LES 
NATURELS 


Le problème de la décomposition d’un nombre en 
facteurs premiers a souvent été traité dans JPC pour 
les différentes machines, avec le langage de base ou 
en assembleur. En ce qui concerne la HP-48 le terrain 
était encore vierge jusqu’au numéro 78. 


Ma solution aura recours à l’assembleur comme je 
l'avais fait pour les HP-71 et HP-28. En effet le 
langage de base ne fournit pas des résultats très 
rapidement. Le programme que je vous propose est 
encore plus rapide que les précédents et permet de 
factoriser des entiers naturels jusqu'à  264-1 
c’est-à-dire la limite des nombres en mode binaire # 
18446744073709551615d, nombre de 20 chiffres. Il est 
bien évident que si un nombre de 20 chiffres est 
décomposable en 2 facteurs premiers de 10, le 
résultat se fera très attendre et qu’il faudra utiliser un 
autre algorithme que celui, classique, utilisé ici et qui 
consiste à tester la divisibité du nombre par cycles de 
30 en 30 (5*6). PRIM de JPCRom fait les tests avec des 
cycles de 210 en 210. La solution utilisant un 
algorithme de type aléatoire vous sera livrée un peu 
plus tard. 


Contrairement à ce qui se fait par ailleurs j'ai 
toujours adopté, pour les résultats, la convention 
suivante : 


si le nombre n’est pas premier, le plus petit facteur 
premier est renvoyé. 

si le nombre est premier, 0 est renvoyé au lieu du 
nombre lui-même comme cela est souvent le cas. 


Cette convention, si elle peut choquer certains, à un 
avantage pour la programmation. En effet on pourra 
utiliser des séquences du type : 


si N n’est pas premier alors .…. 
EDIV 
Syntaxe : 
n EDIV +r 


n nombre entier naturel < 1012 
ou 
n entier binaire décimal < 264 


r entier naturel 
r = plus petit facteur premier si n non premier 
r=0 si n premier 


exemples : 
82646281 ou # 82646281d ED1v + 9091 en 1.45 
82646261 ou # 82646261d EDIV + O en 1.45 


Applications 
POEC décompose en facteurs premiers un entier < 1012 
PDEC 


« © } SWAP 
WHILE 
DUP EDIV DUP DUP 1 # AND 
REPEAT 
DO ROT OVER 
1 +LIST + SWAP ROT 
OVER / SWAP 
UNTIL 
DUP2 MOD 
END DROP 
END DROP DUP 
1 # 
« 1 +LIST + » « DROP » 
IFTE 
» 


GpEc décompose un entier < 264- 
GDEC 
« R?B DUP DUP # Od == SWAP # 1d == + 


IF 
THEN 
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OH OH ON OO ON ON ON OO OÙ OÙ #6 #4  # # *# 


DOCOL 
CKINOLASTWD 
DUPTYPEREAL? 
IT 

44 
DUPTYPEHSTR? 
?SKIP 

DOCOL 

"Bad Argument Type! 
DOERR 

SEMI 

DUP 

TOTEMPOB 

#% 

SORT 

4 

SWAP 

DOCODE 


(fin)-(debut) 

* PopASavptr 

* n : nombre à tester 
* sauvegarde 


1 +LIST IFTE 
ELSE € } SWAP » 
WHILE DUP EDIV DUP DUP 1 # * 
REPEAT R?B 
DO ROT OVER + 1 FS? 
« DUP 1 DISP » « DUP TYPE 0 == 
IFT 1F 
SWAP ROT OVER / SWAP THEN DEC R-B 
UNTIL END 
DUP2 DUP2 / * - B-R » 
END DROP 
END DROP DUP # 1d == Le programme EDIV 
« DROP LIST+ SWAP R+B SWAP +LIST » 
«+» CON(5) #02D9D 
IFTE CON(5) #18AB2 
END CON(5) #62169 
» CON(5) #619BC 
CON(5) #543F9 
HPRM renvoie le nombre premier immédiatement CON(5) #6213F 
supérieur à un entier < 1012, CON(5) #0712A 
CON(5) #02D9D 
HPRM CON(5) #18CB2 
CON(5) #1A339 
« DUP 2 MOD 2 1 IFTE - CON(5) #0312B 
WHILE CON(5) #03188 
è + DUP EDIV CON(5) #06657 
REPEAT CONC5) #5435D 
END CON(5) #2AB09 
» CON(5) #543F9 
CON(5) #03223 
LPRM renvoie le nombre premier immédiatement CON(5) #02DCC 
inférieur à un entier < 10/2, debut  CON(5) 
GOSBVL #3251C 
LPRM GOSUB  popin2 
R1=C 
« DUP 2 MOD 2 1 IFTE + di=a 
WHILE GOSUB popin 
2 - DUP EDIV D=C W 
REPEAT A=R1 
END ?A=0 VW 
» GOYES un 
c=0 W 
EULER ou fonction d’Euler renvoie la valeur de LCHEX 2 
l'indicateur d’Euler pour un nombre entier < 10/2, B=C VW 
pdecr P=P-1 
EULER ?2A=0 P 
GOYES pdecr 
« DUP A=A-1 VW 
WHILE DUP EDIV DUP DUP 1 # AND 2A#0 VW 
REPEAT ROT OVER / OVER 1 - * ROT ROT GOYES diff1 
WHILE un A=A+1 A 
DUP2 MOD NOT 3 PICK 1 # AND GOTO res 
REPEAT diffi A=R1 
SWAP OVER / SWAP ST=0 0 
END DROP ?P# 15 
END DROP DUP 1 == GOYES dif15 
« DROP » ST=1 0 
« SWAP OVER / SWAP 1 - * » = 0 
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* racine carrée de n 
* sauvegarde 
*n 


#* *# *# * 


NO # # # *# * 


si nul alors sortie 


2 : er diviseur 
recherche 

du nombre 

de digits den 


si n = 1 alors sortie 


préparation de n 
pour les tests de 
de divisibilité 

en plaçant son 

son quartet de poids 
fort dans A(0) 


dif15 


shift 


Loop 


tté 
tt2 
tt 


testé 
testé 
test2 
test 


testp 


shift2 
soust 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
C= 
?C<D 
GOYES 
GOTO 
C=C+B 
C=C+B 
P=P+1 
B=B-1 
A=RO 
ASLC 
RO=A 
c=C+1 
GONC 
C=C+B 
GoC 
C=C+B 
GOC 
C=C+B 
Goc 
A=RO 
P=P+1 
c=B 
GONC 
ASLC 
A=A-C 
GONC 
A=A+C 
c=c-1 
GONC 
?ST=0 
GOYES 
ASL 


P 


14 
15 


shift 


test 


test 
test2 
test2 


testé 
test2 
testé 
test2 
testé 
testé 
test2 
testé 


loop 
prem 
WP 
WP 


testp 
WP 
tté 
WP 
tt2 
WP 

tt 


soust 


soust 


shift2 


ok 
WP 


* sauve n 


* n divisible par 2 ? 


* n divisible par 3 ? 
* n divisible par 5 ? 
* n divisible par 7 ? 
*k=0 


n divis. par 30*k+11 
n divis. par 30*k+13 
n divis. par 30*k+17 
n divis. par 30*k+19 
n divis. par 30*k+23 
n divis. par 30*k+29 
n divis. par 30*k+31 
n divis. par 30*k+37 


WIRE EH, ER ET TS 


* diviseur + 6 
* dépassement 
* diviseur + 4 


* diviseur + 2 
#n 


* routine de calcul 
* de modulo 


9 9 9 9 9 9 


C=P 15 
P= 0 
A=R1.F P 
P=C 15 
A=A-C WP 
GONC  sous2 
A=A+C WP 
ok P=P-1 
2A#0 WP 
RTNYES 


sous2 


* non divisibilité ? 


> 
" 

L=] 

un 


out C=R1 *°n 
?2C#A VW * diviseur 
GOYES res 
prem A=0 W 


n ? 


Osin 


résultat 
premier 
résultat sur La pile 
GETPTRLOOP 

adresse argument 


res DATI=A 16 

GOVLNG #05143 

A=DAT1 A 

AD1EX 

D1=D1+ 10 

C=DAT1 16 

RTN 

fin CON(5) #5435D * #>% 
CON(5) #0312B * SEMI 


# # * * * 


popin 
popin2 


* 


pointe Le nombre 
* CW:=nombre 


Vous trouverez dans la rubrique Le coin des codes 
HP-48 la chaîne de codes à assembler. 


Guy TOUBLANC (276) 





ASSEMBLEUR 
les outils du début - Acte II 


Comme promis voici deux nouveaux outils. Mais 
avant de vous les livrer je dois corriger une lacune 
concernant ASC-+. En effet la version de JPC 78 pouvait 
aboutir à un memory lost si l’on tentait d’assembler 


une chaîne vide. Les modifications sont signalées par 
x 


ASC-+ 

con(5) #02D9D * DOCOL 

con(5) #18F9D * CK&DISPATCHO 
con(5) #0400D * THREE 

con(5) #02D9D * DOCOL 

con(5) #63209 * * * DUPNULLS? 
con(5) #0712A ** * 2SKIP 
con(5) #02D9D * * * DOCOL 
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con(5) #627BB * DUPLENS 
con(5) #055DF * NULLS$ 
con(5) #032C2 * OVER 
con(5) #6261A * #5- 
con(5) #6261A * #5- 
con(5) #61C1C * EXPAND 
con(5) #03223 * SWAP 
con(5) #02DCC * DOCODE 
deb con(5) (fin)-(deb) 
gosbvl #06641 * POP# 
gosbvl #0679B * SAVPTR 
a=a-1 a 
b=a a * compteur 
a=dati a * adresse mémoire 
=a * réservée 
di=d1+ 
a=dati a * adresse chaîne 
di=a * de codes 
di=di+ 10 * début des codes 
lchex 39 
Loop * conversion 
a=dat1 2 * ASCII -> HEXA 
?a<=c b à 
goyes inf10 % 
a=a-7 b * (nouvelle 
* instruction) 
inf10 datO=a 1 ” 
di=di+ 2 + 
d0=d0+ 1 x 
b=b-1 a * 
gonc Loop * 
goving #05143 * GETPTRLOOP 
fin con(5) #60F9B * SWAPDROP 
con(5) #0312B * x * SEMI 
con(5) #0312B * SEMI 
con(5) #0312B * SEMI 


Voici maintenant un PEEK pour les curieux qui 
voudront soulever les voiles cachant la mémoire de 
leur HP-48. 


PEEK 
Syntaxe: 


niveau 2 : l’adresse hexadécimale de la zone mémoire 
à lire. 
niveau 1 : le nombre (1 réel) de quartets à lire. 


exemple : 
#679Bh 
16 
PEEK -+ "1361B0B5071441B9" 


Remarque : pour le deuxième argument la préférence 


a été donnée au décimal, contrairement à ce qui se 
fait ailleurs, car plus pratique. 
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Le programme PEEK 


CON(5) #02D90 * DOCOL 
CON(5) #18EDF * CK2&Dispatch 
CON(5) #64DC4 * #81 
CON(5) #02D9D * DOCOL 
CON(5) #18CEA * HXS># 
CON(5) #055DF * NULLS$ 
CON(5) #032C2 * OVER 
CON(5) #618A8 * DUP#0=csedrp 
CON(5) #6112A * UNROT2DROP 
CON(5) #03E6F * #2* 
CON(5) #610C1C * EXPAND 
CON(5) #60F33 * SWAPROT 
CON(5) #05A03 * HXS># 
CON(5) #02DCC * DOCODE 
REL(5) fincode 
GOSBVL #03F5D * POP2# 
RSTK=C * sauve adresse du peek 
GOSBVL #0679B * SAVPTR 
C=DAT1 A 
DO=C 
DO=D0+ 10 * adresse début 
* chaîne résultat 
C=RSTK * restore l'adresse 
* du peek 
D1=C 
B=A A * compteur du nombre 
B=B-1 A * de quartets à Lire 
LCHEX 39 * pour la 
* conversion ASCII 
Loop =C B # 
=DAT1 1 * lecture d’un quartet 
?2C>=A B * 
GOYES inf10 * digit <= 9 
=A+7 B " 
inf10 DATO=A B * écriture caractère 
DO=D0+ 2 * actualisation des 
D1=D1+ 1 * pointeurs 
B=B-1 A * décrémente Le nombre 
* de quartets à Lire 
: GONC Loop * et suite si <> 0 
GOVLNG #05143 * GETPTRLOOP 
fincode 
CON(5) #0312B * SEMI 
CON(5) #0312B * SEMI 


Ce PEEK ne permet pas de lire la mémoire dite cachée 
de la HP-48, aussi il faut pour cela un autre 
programme XPEEK. 


XPEEK 


La syntaxe est la même. 
Exemple : 

#70000h 

10 


XPEEK + "D21098FFFB" 


Remarques : 


xPEEK ne doit être utilisé que pour la zone de mémoire 
cachée. 

XPEEK peut être stocké en RAM où IRAM. 

Une prochaine fois je vous proposerai un PEEK 
polyvalent remplaçant PEEK et XPEEK et plus court mais 
imposant une contrainte de stockage. 


Le programme XPEEK 


CON(5) #02D9D * DOCOL 
CON(5) #18EDF * CK28Dispatch 
CON(5) #64DC4 * #81 
CON(5) #02D9D * DOCOL 
CON(5) #18CEA * COERCE 
CON(5) #055DF * NULLS$ 
CON(5) #032C2 * OVER 
CON(5) #618A8 * DUP#0=csedrp 
CON(5) #6112A * UNROT2DROP 
CON(5) #03E6F * #2* 
CON(5) #61C1C * EXPAND 
CON(5) #60F33 * SWAPROT 
CON(5) #05A03 * HXS># 
CON(5) #02DCC * DOCODE 
REL(5) fincode 
GOSBVL #03F5D * POP2# 
R1=C * sauve adresse du peek 
R3=A * sauve nombre de 
* quartets à Lire 
GOSBVL #0679B * SAVPTR 
=DAT1 A 
DO=A 
DO=D0+ 10 
ADOEX 
R2=A * sauve adresse début 
* chaîne résultat 
ST=0 15 * arrêt interruptions 
* clavier 
GOTO start * début lecture et 
* écriture 
Loop INTOFF 
A=PC * adresse pointeur de 
* programme 
prog LC(5) #80000-(prgmod)+(prog) 
?2C<=A A 
GOYES  prgmod * adresse prog. dans 
* module 
LC(5) (popinib)-(prog) 
C=C+A À * sinon déplacement 
P= 15 * de La RAM interne 
C=P 4 * et exécution de 
GOSBVL #026BF * popinib 
GONC  convers * conversion du quartet 
* lu et écriture 
prgmod P= 4 * déplacement de La RAM 
C=0 A #, 
LCHEX 7 * 


UNCNFG 
LCHEX F 
CONFIG 
LCHEX 6 
CONFIG 


A=DAT1 
RO=A 
LCHEX 6 
UNCNFG 
LCHEX F 
CONFIG 
LCHEX 7 
CONFIG 
P= 0 
convers INTON 
A=RO 
LCHEX 30 
A=A+C B 
LCHEX 9 
2C>=A B 
GOYES inf10 
A=A+7 B 
C=R2 
DO=C 
DATO=A B 
DO=D0+ 2 
CDOEX 
R2=C 
C=R1 
C=C+1 À 
R1=C 
C=R3 
C=C-1 A 


_ 


inf10 


start 


GOC out 

R3=C 

GOTO Loop 
out ST=1 15 

GOVLNG #05143 
popinib A=R1 

D1=A 

A=0 B 

A=DAT1 1 

RO=A 

RTN 
fincode 

CON(5) #0312B 

CON(5) #0312B 


* * # # *# *# 


| ON # # # *# *# * 


EE | 


# # # * * 


* * *# *# 


a Le quartet à Lire 


lecture et 
sauvegarde 

remet La RAM dans sa 
position initiale 


interruptions actives 
restore Le quartet lu 
conversion ASCII 


a La chaîne où écrire 
écriture 
actualisation et 
sauvegarde des 
pointeurs 


décrémente Le nombre 
de quartets à Lire 
0 -> sortie 
sauvegarde compteur 
et suite du peek 


GETPTRLOOP 
lecture et 
sauvegarde 
d'un quartet 


* SEMI 


SEMI 


Vous trouverez dans la rubrique Le coin des codes 
HP-48 les chaînes de codes à assembler ainsi que les 
consignes pour utiliser sans risques ces programmes. 


Guy TOUBLANC (276) 
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LE COIN DES CODES HP48 


Ceux qui n’ont pas encore de programme assembleur 
pourront procéder de la manière suivante: 


-par mesure de sécurité sauvegardez vos programmes 
et fichiers. 

-éventuellement verrouillez vos cartes RAM pour 
devenir ROMs. 


Mettez votre machine en mode HEX pour obtenir les 
mêmes résultats que ceux précisés ici. 

-tapez le programme AsscoD puis la chaîne de codes 
hexa ASC- sans espaces. L’encombrement mémoire et 
le checksum sont donnés pour les programmes mis 
sur la pile. 


ASSCOD 


# 105Bh 
138 octets 


« DUP TYPE 2 # 

IF 

THEN # 202h DOERR 

ELSE "GROB 8 " 
OVER SIZÆ 2/""+ 
+ SWAP + STR-+ 
# 4017h SYSEVAL 
# 56B6h SYSEVAL 
DROP NEWOB 

END 


ASC-+ 


# 71A2h 
182 octets pour la chaîne de codes 


# FC91h 
88.5 octets pour la chaîne assemblée 


D9D20 D9F81 D0040 D9D20 90236 A2170 D9D20 BB726 
FD550 20230 A1626 A1626 C1C16 32230 CCD20 25000 
8F146 608FB 9760C CD814 31301 74143 13117 93193 
15819 EA808 18686 15801 71160 CD54E 8D341 50B9F 
06821 30821 30B21 30 


Cette chaîne de codes étant sur la pile tapez AsscoD 
vous obtiendrez sur la pile: 
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External <3h> 
External External 
External External 
“uw External 


que vous stockerez dans ASC+, ce programme vous 
permettra d’assembler très rapidement les chaînes de 
codes hexa, remplacera ASsSCoD et donc sera à utiliser 
pour l'assemblage des chaînes suivantes. 


L’utilitaire suivant vous permettra de relire les codes 
avant assemblage car il est très sage de faire cette 
relecture. Il regroupera les codes par lignes de 5 
caractères. 


PILS 


# 93A6h 
239 octets pour la chaîne de codes 


# 956Dh 
117 octets pour la chaîne assemblée 


D9D20 D9F81 D0040 D9D20 BB726 9BC26 12040 7FE30 
B9F06 CBD30 F6E30 95D26 C1C16 32230 CCD20 09000 
AFO8F 14660 8FB97 60147 13406 16917 41471 35179 
AF230 58F70 85631 A0D75 A115F 91509 17916 9AEB1 
5C116 1CC55 E8A94 1D9C6 CE80D 01571 15418 F2D76 
01740 71451 C48D9 41504 4230B 2130B 2130 


Pour restituer la chaîne à assembler voici le 
programme complémentaire de PILS. 


DEPIL 


# AC61h 
158 octets pour la chaîne de codes 


# 3D18h 
76.5 octets pour la chaîne assemblée 


D9020 D9F81 D0040 D9D20 BB726 CCD20 17000 8F146 
608FB 9760) 81431 30169 13606 13513 43140 55115 
A1962 90159 11711 61CD5 AE133 8F2D7 60AF2 E6109 
O7EE8 1E108 84184 A8D65 750B2 13082 130 


Donc à partir de maintenant pour tout assemblage de 
chaîne de codes procédez de manière suivante: 

1- tapez la chaîne de codes sans espaces 

2- faire DUP BYTES 

3- contrôlez le checksum et le nombre d’octets 

4 si ce n’est pas bon faire PIL5 puis éditez la chaîne 
pour la relire et modifier les codes. Puis faire ENTER 
DEPIL et revenir à l'étape 2. 


5- la chaîne contrôlée étant sur la pile faire ASC+ et  D9020 28A81 96126 cB916 9F345 F3126 A2170 D9020 
stockez le programme assemblé dans la variable  2Bc81 933A1 82130 88130 75660 D5345 90BA2 9F345 
donnée en tête de liste de codes. Après avoir rappelé 32230 CCD20 F4100 8FC15 23733 11091 31762 1AF71 
le programme sur la pile puis tapé BYTES vous devriez 11978 A1AF2 302AF 50D90 8BFA7 C97C8 0E465 F0111 
obtenir le checksum et le nombre d’octets indiqués 84088 FF085 020A8 08142 EBOCF AC581 40D5A F8101 


pour la chaîne assemblée. 00207 76086 67060 76507 25078 407A4 07040 72407 
8307E 20763 07620 AC29F 3AD64 80A19 A190C A4D11 
Guy TOUBLANC (276) 08101 00806 571A1 942EA 194FD A194C D1100 CAC95 


50810 B1A5C FAAA 4E50F 860E1 B9080 CF208 1A011 
80DFB 1A5CF A1A0D 91C00 A9AAC 00711 99765 OAFO1 
59F8D 34150 14313 31791 5FF01 D5345 B2130 

Ce mois-ci vous trouverez les listes de codes des 

programmes en assembleur décrits dans les pages 

précédentes: 


PEEK XPEEK EDIV 


PEEK 


# 8TE6h 
167 octets pour la chaîne de codes 


# D7B7h 
81 octets pour la chaîne assemblée 


D9D20 FDE81 4CD46 D9D20 AEC81 FD550 2C230 84816 
A2116 F6E30 C1C16 33F06 30A50 CCD20 25000 8FD5F 
30068 FB976 01471 34169 07135 D8CD3 193AE A15B0 
9EA80 81860 61481 61170 CD52E 8D341 50B21 30B21 
30 


XPEEK 


# E83Eh 
332 octets pour la chaîne de codes 


# 6EF8h 
163.5 octets pour la chaîne assemblée 


D9D20 FDE81 4CD46 D9D20 AEC81 FD550 2C230 8A816 
A2116 F6E30 C1C16 33F06 30A50 CCD20 7F000 8FD5F 
30109 1038F B9760 14313 01691 32102 84F60 A0808 
F81B4 34BDF F78BE B134E AOO0C 22F80 C48FF B6205 
C324D 23078 0430F 80530 68051 11131 AE015 B0100 
30680 430F8 05307 80520 80801 10310 3A6A3 O99EA 
80818 60611 A1341 48161 13610 A119E 61091 1BCE4 
90108 675F8 5F8D3 41501 11131 AE015 B0100 01821 
30821 30 


EDIV 





# 82BBh 
440 octets pour la chaîne de codes 


# DEE9h 
217.5 octets pour la chaîne assemblée 
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mr S 0 a 


SE QR LE à 
ÉD 
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HP-71 


A. Aoufi Régression exponentielle multiple 18 
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REGRESSION EXPONENTIELLE 


Le programme proposé effectue une régression 
exponentielle suivant la méthode des moindres carrés. 
Il utilise le module Maths pour tous les traitements 
matriciels. 


Le problème étudié 


Considérons un nuage de points (x1,y1), .(xm,ym) et 
cherchons un ajustement de type: 
alexp(b1x)+..+anexp(bnx)+c 

On utilise la méthode des moindres carrés afin de 
minimiser l'écart quadratique entre la valeur 
expérimentale et celle estimée par le modèle. Ceci 
impose de résoudre un système non linéaire à 2n+1 
inconnues. Ne disposant pas du module Curve Fitting 
nous devons implémenter une méthode de résolution 
de tels systèmes. La méthode de Newton choisie 
impose de calculer le vecteur Gradient et la matrice 
Hessienne. Un calcul sans malice quoique très long 
fournit les expressions utilisées par le programme. La 
méthode de Newton est à convergence locale et 
quadratique comme l’on pourra s’en convaincre à 
l’aide de l'exemple proposé. 


Mode d’emploi 

1) Lancer l'exécution par RUN REGEXP. 

2) Entrer le nombre de Points M. 

3) Entrer le nombre de Fonctions N. 

4) Rentrer les abscisses des points du nuage. 
5) Rentrer les ordonnées des points du nuage. 
6) Taper le nombre d’itérations S. 


T7) Indiquer un vecteur de départ pour la recherche, 
al,..,an,b1,..bn,c. 


8) A chaque itération apparait: Le numéro de 
l'itération, Le module du vecteur correctif ajouté, la 


valeur de la fonction d’écart. 


9) En fin d’itération apparait: L'indice du point, La 
valeur estimée, L’écart relatif. 


Heureuse Programmation à tous. 


Asdin AOUFI (562) 
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AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "l’équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette) dans le format lisible directement pour 
votre machine. Vous pouvez taper vos articles sur IBM PC, mais n’utilisez pas de 
traitement de texte (WORD...). Utilisez plutôt un éditeur simple manipulant des 
fichiers en ASCII pur, sans codes d’enrichissement. Soyez sans crainte, nous vous 
retournerons vos biens après copie. 


Si vous n’avez pas accès à un IBM, et seulement dans ce cas là, vous pouvez à la 
rigueur nous envoyer des disquettes provenant de Macintosh. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP-71) : 


“* centre un titre, par exemple : 
TITRE 


"\"(CHR$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous 
en doutez, intéressera certains des membres du Club. Surtout si vous vous 
sentez débutant. Les articles pour débutants écrits par des débutants sont ceux 
qui manquent le plus. Fin de paragraphe.\ 


Pour écrire une accolade ({ ou}), il faut doubler l’accolade, une accolade simple 
ayant une signification spéciale dans l’édition de JPC. 


Les utilisateurs de HP-71 utiliseront le fichier CHARLEX, qui a été souvent listé 
dans le coin des Lhex, pour utiliser les caractères accentués du jeu Romans. 


Les utilisateurs de HP-48 doivent nous envoyer les programmes RPL sous deux 
formes : Binary, plus ASCII avec Translate Code : 3. Les programmes composés 
de plusieurs variables doivent être dans un répertoire à transférer sur disquette 
et dans les deux modes. Si vous insérez dans le corps des articles le texte des 
programmes, veuillez faire précéder ce texte de trpt et le faire suivre de Cendrpl. 


Les utilisateurs de HP-95 et MS-DOS nous transmettront les sources de leurs 


programmes accompagés des fichiers compilés. Il nous indiquerons le nom et la 
version du compilateur ou de l’interpréteur qu’ils ont utilisé, 
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PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l’accès en métro, trois possibilités s’offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions... À bon entendeur, salut ! 
Les dates des prochaines réunions sont : 


Samedi 12 Septembre 1992 
Samedi 3 Octobre 1992 


oO ur 


is fi,“ 


NOUS EN AVONS 


La coopérative du Club vous propose : 


- Des anciens numéros de JPC (Préciser les numéros). 

- Des années complètes de numéros de JPC (février à janvier). 

- Des manuels de service du HP-41 et du HP-75. 

- La Programathèque HP-71, regroupant tous les Lex et programmes pour HP-71 et HP-75 parus à ce jour 
dans JPC. Elle vous est livrée avec un catalogue décrivant brièvement tous les programmes. 

- La JPC Rom pour HP-71, comportant plus d’une centaine de fonctions en assembleur (mathématiques, 
programmation structurée, utilitaires systèmes...). Joindre une Eprom vierge (64 Ko) à votre règlement. Il 
est possible d’y ajouter vos propres programmes. 

- Les utilitaires de développement pour HP-48 (fonctionnant sur IBM PC), développés mais non supportés 
par HP, La disquette contient un Assembleur et un Linker pour le microprocesseur Saturn, un compilateur 
RPL et un générateur de librairies. Les fichiers également inclus dans la disquette comprennent les notices 
de ces logiciels, le jeu d'instruction du microprocesseur, la description de la structure logicielle de la HP-48, 
du langage RPL, ainsi que le listing de plus de 2000 points d’entrées. Vous pouvez obtenir cette 
documentation imprimée et reliée par nos soins. 


Le port, et eventuellement la disquette (précisez le format) sont inclus dans les prix. 


Si vous souhaitez des renseignements complémentaires, n’hésitez pas à nous contacter. 


oo 


Nom : 
Prénom : 
No d'’edhérent : 
Adresse : 
Quantité Prix Unitaire Prix Total 

Adhérent | Autre 
Anciens numéros de JPC X 40 FF | .45 FF 
Année complète de JPC X 300 FF | 350 FF 
Manuel de service pour HP-41 X 60 FF | 75 FF 
Manuel de service pour HP-75 X 60 FF | 75 FF 
Progremmathèque HP-71 X 60 FF | 75 FF 
JPC Rom + Manuel x 500 FF | 600 FF 
JPC Rom + Manuel + vos propres programmes x 700 FF | 800 FF 
Actualisation Eprom X 150 FF | 200 FF 
Kit de développement pour HP-48 (disquette seule) X 40FF | 50 FF 
Kit de développement pour HP-68 (disquette + doc imprimée) X 170 FF | 200 FF 


Préciser éventuellement Les numéros de JPC commandés : 


PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 
Nom ARR este tele lets AA ET REMOTE EPS | 
Prénom [e TENTE LEP DE DATE on | Date de naissance |_|_|/|_|_|/|_|_| 
HE PR etes LOT PATATE RARE PT IE 
| 


o 
o 
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® 
Tv 
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© 

= 

! 
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Profession 
Intérêts 








Matériel HP en votre possession 








Autre matériel informatique 








Comment avez-vous connu PPC Paris ? 


Que recherchez-vous au sein de PPC Paris ? 











La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux Libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services où organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
Le concernant. e 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d’autres personnes ou 
organismes) pour publication dans Le Journal de liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La part des 
dirigeants de PPC-Paris. 


Date |_|_1/1_1_1/191 1] 
Signature, précédée de La mention "LU et Approuvé! 
Le montant de La cotisation s'élève à 350.00 F pour un en. 


Etudiants: 300.00 F (justificatif indispensable) 


Paiement à l'ordre de "PPC Paris“ par chèque bancaire ou virement postal (CCP 
No 18 823 40 C à Paris). Ne pas utiliser d’Eurochèques. 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 


1000 
1010 
1020 
1030 
1040 
1050 
1060 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


1150 
1160 
1170 
1180 
1190 


1200 
1210 
1220 
1230 


1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 


1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 


DEF FNF(X) 
T=0 
FOR L=1 TO N 
T=T+A(L)*EXP(B(L)*X) 
NEXT L 
FNF=T+C 
END DEF 


#DATA': 

DESTROY ALL @ OPTION BASE 1 @ DESTROY ALL @ INTEGER N,M 
INPUT "Nb de points M?":M 

INPUT “Nb de fonctions N?":N 

DIM XCM),YCM),ACN),BCN),GC2*N+1),HC2*N+1,2*N+1) 

DIM WC2*N+1),ZC2*N+1) 

MAT INPUT X @ MAT INPUT Y 

INPUT "Nb d’Iterations S?";S 


SOL’: MAT INPUT A @ MAT INPUT B @ INPUT "C=?";C @ S0=0 
FOR 1=1 TO N 
ZC1)=ACI) @ ZCI+N)=B(1) 
NEXT I 
ZC2*N+1)=C 


"CALC’: 
F=0 à S0=0 
FOR R=1 TO S 
FIX 0 à DISP R; à FIX 4 à DISP F;S0 
GRADIENT 
T=0 
MAT G=ZER 
FOR 1=1 TO N 
FOR K=1 TO M 
T=2*(FNFCX(K))-YCK))*EXP(BCI)*X(K)) 
G(1)=GC1)+T 
GCI+N)=GCI+N)+T*ACI)*XCK) 
NEXT K 
NEXT 1 
FOR K=1 TO M 
GC2*N+1)=G(2*N+1)+2*CFNF(XCK))-YCK)) 
NEXT K 
HESSIENNE 
T=0 @ MAT H=ZER 
FOR 1=1 TO N 
FOR J=I TO N 
FOR K=1 TO M 
T=2*EXP((B(J)+BC1))*XCK)) 
HCI,J)=HC1,J)+T 
HOI4N,J+N)=HCTEN,J+N)+T*ACT)#XCK)*ACI)#XCK) 
NEXT K 
NEXT J 
NEXT ! 
FOR 1=1 TO N 
FOR J=1 TO N 
FOR K=1 TO M 
T=2*EXP((B(J)+BC(1))*XCK)) 
HCI,J+N)=HCI, J+N)+T*ACJ)*XCK) 
NEXT K 
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1540 NEXT J 


1550 NEXT 1! 

1560 FOR 1=1 TO N 

1570 FOR K=1 TO M 

1580 HCT,I4+N)=HCT, I+N)+2*CFNF(XCK))-YCK))*X(K)*EXP(BCI)#X(K)) 
1590 HCT4N, L+N)=HCT4N, I#N)#+2*ACL)*CFNFC(XCK))-YCK))*XCK)2#EXP(BCI)*XCK)) 
1600 HCI,2*N+1)=HC1,2*N+1)+2*EXP(BCI)*X(K)) 

1610 HCT4N,2*N+T)=HCI4N,2*N+1)+2*ACI)*XCK)*EXP(BCI)*XCK)) 
1620 NEXT K 

1630 NEXT 1! 

1640 FOR 1=1 TO N 

1650 HC2*N+1,1)=HC1,2*N+1) 

1660 HC2*N+1,I+N)=HCI+N, 2*N+1) 

1670 FOR J=1+1 TO N 

1680 HCJ,1)=HC1,9) 

1690 HOJ4N, I+N)=HCI+N, J+N) 

1700 NEXT J 

1710 NEXT I! 

1720 FOR 1=1 TO N 

1730 FOR J=1 TO N 

1740 HCJ+N,I)=HCI, J+N) 

1750 NEXT J 

1760 NEXT 1! 


1770 HC2*N+1,2*N+1)=M 

-  RESOLUTION SYSTEME 
1790 MAT W=SYSCH,G) 
1800  F=FNORM(W) 
1810 MAT Z=Z-W 
1820 FOR I=1 TO N 


1830 ACI1)=2(1) à B(1)=Z(I1+N) 
1840 NEXT 1! 

1850 C=2Z(C2*N+1) 

1860 S0=0 

1870 FOR K=1 TO M 

1880 SO=SO+(FNF(XCK))-Y(K))"2 
1890 NEXT K 

1900 NEXT R 


1910 DELAY INF @ PRINT "Estimation des coeff" 
1920 MAT DISP A;B; à DISP C 


1930 ’AFF’: DISP "Points estimes" @ PAUSE à S0=0 à FOR K=1 TO M 

1940 D=FNF(X(K)) à S0=S0+(D-Y(K))"2 

1950 FIX O0 @ DISP K; à FIX 4 à DISP D; @ DISP (D-Y(K))/Y(K)*100 à PAUSE 
1960 NEXT K 

1970 DISP "Ecart quad=";S0 à STD à END 
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HP-95 


J. Belin Les péripheriques du HP-95 22 
J. Belin Du Saturn au 8086 (Acte I) 22 
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LES PERIPHERIQUES DU HP95 


Dans les précédents JPC, nous vous avons présenté 
les différentes cartes et logiciels fonctionnant sur 
HP-95. Aujourd’hui, nous continuons avec les 
accessoires pouvants être branchés sur la machine ou 
sur un IBM PC. 


Adaptateur Allume-cigare d'EduCALC 


Idéal pour ceux qui utilisent leur HP95 vers 18 heures 
dans les encombrements Parisiens ! Prix : 35$ 


PC Docking-Station de Sparcom 


Se présentant comme un support sur lequel on place 
le HP95, cet accessoire permet de connecter 
l'alimentation et la liaison série en un seul geste. 
Cable série et alimentation fournis. Prix : 50$. 


Lecteurs de cartes PCMCIA pour PC 


Les possesseurs de cartes PCMCIA peuvent préférer 
accéder à ces cartes directement sur le PC, sans avoir 
à passer par le HP-95. Différents constructeurs 
proposent des solutions, parfois très différentes. Celui 
de la société PAMCO se connecte sur le port 
parallèle, pour environ 150$. Utilisant le même port, 
mais contenant une sortie intégrée, celui de Databook 
vous permettra de connecter tout de même une 
imprimante. Prix 290$. Enfin, par la même société, il 
existe une version interne au PC, utilisant une carte 
d’extension, qui se présente comme un lecteur de 
disquette 5%". Prix 230$ (une version acceptant les 
cartes FLASH est disponible pour 260$). Tous ces 
périphériques sont bien sûr livrés avec les drivers 
permettant leur bon fonctionnement. 


Jacques Belin (123) 





DU SATURN AU 8086 
ACTE | : Les microprocesseurs 


Cet article est le premier d’une série destinée à 
l'initiation à l’Assembleur sur l’IBM PC et le HP-95. 
Bien qu’étant destiné aux programmeurs sur HP-71 
désirant passer sur le 8086, ils peuvent cependant être 
lus par ceux qui ne connaissent pas le Saturn. 
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Avertissement : JPC ayant une taille limitée, il est 
impossible de faire un article décrivant la totalité des 
possibilités du microprocesseur et de l’assembleur. Il 
faudra donc voir ces articles comme étant un 
préambule à la lecture d’un des nombreux livres 
consacrés à ce sujet. 


Les Registres du Saturn 


Pour mémoire, voici la structure des registres de ce 
microprocesseur : 


Largeur en Bits 


63 0 
tm mm mm + 
A | | Registres 
Homme + 
8 | | de 
tn mm mme + 
6 | 
denses nn ssnsesssssssse + Travail 
D | | 
He + 
FEDCBA9876543210 Nibbles 
[<------.... W = >| 
| |[<-- A -->] Champs 
| Ie-x>| de 
Is] IXs|<8>| sélection 
fesse Nu» | 
3 0 
+----+ Sélecteur de 
P | | largeur 
+----+ de Champ 
63 0 
mme + 
RO | | Registres 
tm + 
R1 | | de 
Hem mm mn + 
Re | | 
RESRSSS ss s nn senmenesasennensee + "Scratch" 
R3 | 
Hem nn + 
Ré | | 
Hem mm mm mm mm + 
19 0 
mm + 
Do | | Pointeurs de 
mm + 
D1 | | données 
mm + 
+ + 
PC | | Compteur Programme 


Flags matériels : 


c Carry 

MP Module retiré 

SR Demande de service 

sB Sticky Bit 

XM Module externe Manquant 


Flags Logiciels : 
0-11 Disponibles pour programmes 
12-15 Réservés pour le système 
Les registres du 8086 


D'une taille plus homogène, ces registres ont aussi 
une structure beaucoup plus simple. 


Largeur en Bits 


15 8 7 0 
tm + + 

AX | AH | AL | 
tn + + 

EX | BH | BL | 
tm + + 

CX | CH | cc | 
+==senese tesmnss.e + Registres à usage 

DX | DH | DL | général 
tom tm + 

DI | | 
temmmmmmmmmmmmnnn + 

si | | 
prmmmmmmmmmnnnnnnn + 

8P | | 
pm + 
tenmmmmmmmmnnnnnn + 

ps | | 
temmssmmsesesesse + Registres de segments 

Es | | 
pme + 
tonne + 

ss | | 
tronanerenerentess + Pointeur de pile 

sp | | 
tm + 


tmmmmmmmmmmmmnnss + 
cs | | 

tnsmssessesnsse + Pointeur d’instruction 
IP | | 

tmmmmmmmmmmmmnnne + 

15 0 

tm + 

|----001TSZ-A-P-c| Registre des flags 

tmmmmmmmmmnmmnnn + 

Avec : 


0 = Indicateur de débordement (Overflow) 

D = Indicateur de sens (Direction) 

1 = Indicateur de masquage d’interruptions 
(Interrupt) 

T = Indicateur de trappe (Trap) 

s = Indicateur de signe (Sign) 

z = Indicateur de zero (Zero) 

A = Indicateur de retenue auxiliaire 
(Auxiliary carry) 

P = Indicateur de parité (Parity) 

c = Indicateur de retenue (Carry) 


Premières observations 


La notion de champs de sélection n’existe pas sur le 
8086. Ou plutôt, il n’existe que trois spécificateurs : 
rX, rH et rL (avec r=A, B, C ou D). X est équivalent 
au spécificateur W du Saturn, H correspond à l’octet 
de poids fort du registre, et L correspond à l’octet de 
poids faible. 


Les Registres IN, OUT et P n’ont pas d’équivalent sur le 
8086. 


I ny a qu'un seul flag commun au deux 
microprocesseur : le Carry, qui est armé à chaque 
fois, par exemple, où un calcul dépasse la capacité 
d’un registre, au cours d’une addition ou d’une 
soustraction. De plus les flags du 8086 sont regroupés 
dans un seul registre. 


Modes d’adressage de la mémoire 


Alors que le Saturn utilise le nibble (de 4 bits) comme 
élément de base pour adresser et manipuler les 
données, le 8086, comme la plupart des autres 
microprocesseurs, utilise l’octet (8 bits). Ce point doit 
être toujours présent à l'esprit des programmeurs 
désirant effectuer des portages d’un microprocesseur 
vers l’autre, car une erreur de calcul d’adresse est très 
facile commettre, et très dificile à détecter ! De plus, 
les registres du 8086 ayant une taille de 16 bits, il est 
très courant de manipuler directement des données 
de cette taille. Ce type de données a donc un nom 
particulier : “mot” (ou WORD). 
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Mais la différence la plus fondamentale est la notion 
de segmentation de la série 80X86 d’Intel. 


En effet, si le Saturn et les autres microprocesseurs 
permettent d’adresser toute la mémoire de façon 
linéaire, Intel a développé une méthode d’adressage 
basée sur la combinaison du contenu de deux 
registres de 16 bits. 


Cette méthode à été créée à une époque où les 
ordinateurs étaient encore équipés de 16 ko de 
mémoire vive et où un micro-ordinateur équipé de 1 
Mo relevait de la science-fiction. Ceci implique que le 
8086 ne peut pas adresser ou manipuler des blocs 
d’une taille supérieure à 64 Ko. 


La notation utilisée se présente sous la forme 
suivante : 
segment:offset 

où segment constitue l’adresse de base d’une zone à 
l'intérieur de la mémoire vive et offset un pointeur à 
l'interieur de cette zone. Autrement dit, l’adresse 
notée 1004:0c3D représente le "C3D'ieme octet situé 
après l’adresse 10040 (en hexadécimal). 


Vous avez remarqué j'ai ajouté un O à la fin du 
segment. En effet, afin d’effectuer le passage entre 
cette notation et l'adresse physique en mémoire, il 
convient de décaler la valeur du segment de 4 bits 
vers la gauche, puis d’ajouter la valeur de loffset. 
Pour l'exemple précédent, nous aurons donc : 


1004 valeur du segment 
+ 0C30 valeur de l’offset 
10c7D Adresse finale 


Une même adresse peut être notée avec différents 
couples de segments et d’offsets. Par exemple, 
l'adresse précitée aurait très bien pu être notée, par 
exemple, 1000:0c7D, 10c7:000D ou 1007:0c0b. Il convient 
donc d’être très prudent aux cours des comparaisons 
entre deux adresses, car si l’on n’y prend pas garde on 
peut très bien rejeter un test d'égalité alors que les 
deux adresses physiques sont identiques. 


Que ce soit pour le Saturn ou le 8086, nous obtenons 
donc une adresse sur 20 bits, soit 1048576 valeurs 
possibles. Le processeur Intel adressera donc 1 Méga 
octets, alors que le Saturn adressera 1 Méga quartets, 
soit 512 Ko. 


Sur ce processeur, la mémoire sera directement 
accessible par les registres DO et D1, pour les 
données, et par le registre PC, pour le compteur du 
programme. 
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Sur le 8086, l’accès à la mémoire s’effectue à l’aide de 
couples de registres spécialisés. CS, DS, ES et SS sont 
réservés pour contenir des valeurs de segment, alors 
que SI, DI, SP, BP et IP sont particulièrement 
destinés à recevoir des valeurs d’offset. Certains 
couples sont définis à un usage précis, comme par 
exemple SS:SP pour l’accès à la pile et CS:IP pour le 
pointeur d'instructions. Nous pouvons donc dire par 
analogie avec le Saturn que CS:IP est équivalent à 
PC, et, dans une moindre mesure, ES:DI à DO et 
DS:SI à D1. 


Autres différences 


Il n’existe pas, sur le microprocesseur Intel, de mode 
décimal. Tous les calculs se font donc en Hexa. 


Le jeu d’instructions du 8086 


Comme annoncé au début de cet article, je ne citerai 
ici que les principales fonctions. Je vous recommande 
de vous procurer un des nombreux livres traitant de 
ce sujet, contenant la liste complète des instructions 
du 8086. 


Il existe une différence fondamentale entre les deux 
assembleurs. Alors que le Saturn utilise plusieurs 
mnémoniques distinctes pour chaque instruction 
traitant avec des registres différents (A=A+C et B=8+A, 
par exemple), le 8086 utilise une seule mnémonique 
(mov, ADD...) pour chaque opération, les registre utilisés 
étant formulés sous forme de paramètres séparés par 
une virgule, (à la place du spécificateur de champ, 
sans signification sur le 8086). 


Les chargement des données et accès mémoire. 
L’instruction de base de chargement et de 
déplacement des données est l'instruction Mov. Sa 
syntaxe est la suivante : 

mov destination,source 
où source et destination peuvent être des registres ou 
des adresses mémoires. source peut aussi être une 


constante. 


Par exemple, pour copier le contenu du registre CX 
dans AX, on utilisera la ligne suivante : 


mov ax, CX 
Le registre P n’existant pas, il n’est pas possible de 


charger un quartet précis dans le registre en fonction 
de la valeur d’un autre registre. 


Sur le Saturn, tous les déplacements de données entre 
registres s’effectuaient obligatoirement sur le même 
sélecteur de champ. Il était donc impossible de 
charger, par exemple (et sans tenir compte de la 
différences des tailles), le contenu du champ XS du 
registre À dans le champ M du registre C. Sur le 8086 
par contre, il est tout à fait possible d’effectuer les 
opérations suivantes : 


mov al,di charge DL dans AL 
mov bh,cl charge CL dans BH 
mov bl,bh charge BH dans BL 


Il n’est cependant pas possible de charger le contenu 
d’un registre rX dans rH ou rL. Le contraire est 
possible, à condition d’utiliser l'instruction movzx, qui 
chargera la valeur 0 dans le registre rH. 


Alors que sur le HP-71 les constantes ne pouvaient 
être chargées que par l'intermédiaire de registre C 
(plus le registre À sur le HP48), elles peuvent être 
entrées directement dans la plupart des registres du 
8086. Les constantes peuvent être spécifiées en 
binaire, décimal ou hexadécimal, en indiquant les 
lettres b, d ou h à la suite de la constante. Les 
constantes héxadécimales longues doivent de plus être 
précédées du caractères 0’ (zéro). Par exemple : 


mov ax, 123d charge 123 dans AX 
mov  di,0C701h charge 50945 dans DI 
mov bl,10001001b charge 137 dans BL 
mov al,'A’ charge 65 dans AL 


Il n’est pas possible de charger directement une 
constante dans les registres de segments. Il est donc 
nécessaire de passer par un registre général. Par 
exemple, pour charger F000 en DS, on peut écrire : 


moy ax,0F000h 
mov ds ,ax 


D'autre part, toutes les opérations ne sont pas 
accessibles sur ces registres de segment. Il vous 
faudra donc souvent transférer temporairement le 
contenu de ces registres dans les registre AX, BX, CX 
ou DX. 


Les chargements entre un registre et la mémoire 
s’effectuent avec une ligne de la forme suivante : 


mov registre,segment: [offset] 
ou 
mov segment : [offset] ,registre 


où segment:[offset] indique l'adresse mémoire 
pointée par segment :offset. La présence des crochets 
est obligatoire. segment doit être un registre de 
segment, alors que offset peut être un registre ou une 


constante. Alors que pour entrer le contenu de 
l'adresse 4C3F2 dans le registre À, il faut entrer sur le 
HP-71: 


D1=HEX 4C3F2 
A=DATI W 


On pourra entrer pour le 8086 : 


mov ax,04000h 
mov ds,ax 

mov bx,0C3F2h 
mov ax, ds : [bx] 


En général, lorsque l’on accède à une adresse 
mémoire utilisant le segment DS et les registres BX, 
Si ou D, il est inutile de spécifier le terme ds:. La 
dernière ligne pourra donc s’ecrire : 


mov ax, [bx] 


Il est cependant possible de faire plus simple, en 
réduisant les deux dernières lignes. En effet, il est 
possible d’entrer une valeur constante à la place du 
registre bx. Notre exemple peut donc devenir : 


mov ax,04000h 
mov ds ,ax 
mov ax, [0C3F2h] 


Si maintenant nous voulons stocker cette valeur 
quatre octets plus loin, il faudra écrire pour le Saturn 
(les registres précédemment occupés sont toujours 
valides) : 


D1=D1+ 8 (8=2*4 quartets) 
DATI=A W 


Sur le 8086, si on a utilisé le registre BX, on peut 
entrer directement : 


mov [bx+4] ,ax 


Ce type d’ecriture peut être étendue de façon 
relativement souple, en utilisant des combinaisons des 
registres. Si on travaille sur des tableaux ou des 
structures complexes, il est possible de spécifier la 
base du tableau (son adresse de départ), un index (un 
octet dans ce tableau) et un déplacement (une valeur 
constante). Le registre de base peut être BX ou BP, le 
registre d’index peut être Di ou SI. 


Les combinaisons possibles sont : 


[déplacement] [bp+déplacement] 
Cbx] [bx+déplacement] 
[si] [si+déplacement] 
[di] [di+déplacement] 
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[bx+si] [bx+s i+déplacement] 
[bx+di] [bx+di+déplacement] 
[bp+si] [bp+si+déplacement] 
[bp+di] [bp+di+déplacement] 


Il n’est pas possible de copier directement une 
donnée d’un emplacement mémoire à un autre. Par 
exemple : 


mov es:l[di],ds:[si] 
doit être découpé, par exemple, en : 


mov ax,ds:[si] 
mov es:[di],ax 


Par contre, il est possible de charger une constante 
directement en mémoire. Il est cependant nécessaire 
de spécifier la taille de la donnée à stocker, car 
l’assembleur ne sait pas à priori si la constante doit 
être stockée dans un octet ou un mot. Il faut donc 
préciser, juste avant l’opérande de mémoire, la taille 
désirée. Ceci est fait de la façon suivante : 


mov BYTE PTR [bx],12 
pour charger un octet, ou 

mov WORD PTR [bx],12 
pour charger un mot de 16 bits. 


Ce type d'écriture est aussi valable pour les 
instructions de test et les opérations logiques. 


Comme pour le Saturn, il existe sur le 8086 une 
instruction permettant d’échanger le contenu de deux 
registres. Appelée xckG, cette instruction permet en 
plus, ce qui n’est pas possible avec le Saturn, 
d’echanger directement le contenu d’un registre avec 
le contenu d’une adresse mémoire. La syntaxe et les 
regles d’utilisation sont les mêmes que pour Mov. 


Enfin le contenu du registre des flags peut être chargé 
dans AH à l’aide de l'instruction SAHF et récupéré, 
toujours à partir de AH, à l’aide de l’instruction sAHF. 


Les opérations sur la pile 


Sur le Saturn, la pile est située dans le 
microprocesseur. Limitée à 8 niveaux (dont deux 
réservés pour les interruptions) son utilisation est 
restreinte et à surveiller avec attention lors de la 
programmation de programmes complexes. 


Par contre, sur le 8086, la pile est située dans la 
mémoire vive. Son adresse de base est déterminée par 
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le segment SS, et le haut de la pile est repérée à 
l'adresse pointée par SS:SP. 


Une autre différence avec le Saturn est que le 
contenu de tous les registres du 8086 peuvent être 
empilés, alors que seul le contenu du registre C peut 
être empilé sur la Saturn. 


La syntaxe est simple : 


push registre 
pop registre 


pour empiler 
pour dépiler 


Le registre des flags peut être empilé par PUSHF et 
dépilé par POPF. 
Les opérations mathématiques de base 


L’instruction d’addition, appelée ab diffère peu de ce 
qui a été décrit précédement. Par exemple : 


add ax,bx 


effectue l’addition des termes AX et BX, puis charge 
le résultat en AX. 


Autre exemple, pour additionner 123H à un octet 
situé en mémoire, il faut écrire pour la Saturn (D1 
pointe déjà sur cet octet) : 

A=DATI B 

LCHEX 123 

A=C+A B 

DATI=A B 
Pour le 8086, il suffira d’écrire : 

add BYTE ptr [bx],123 


Ceci placera 123h à l’octet stocké à l’adresse pointée 
par DS:BX. 


Dans le même ordre d'idée, SUB aurait retiré la valeur 
BX à AX, puis aurait placé le résultat dans AX. 


L’instruction : 
add di,1 
Peut être remplacé par : 
inc dl 
Il est à noter qu’il est plus rapide et plus économe en 


mémoire d'effectuer deux fois l'instruction INC que 
add dx,2. 


Quant à l’instruction 0Ec, elle décrémente d’une unité 
le contenu du registre spécifié. 


Non présentes sur le Saturn, le 8086 nous offre deux 
instructions supplémentaires : la multiplication et la 
division. 


Contrairement aux autres opérations, la 
multiplication s'effectue exclusivement sur les 
registres AL ou AX, suivant la taille des données 
utilisées. 


Si on travaille avec une valeur sur 8 bits, une des 
valeurs devra être placée dans AL, l’autre valeur dans 
un des registres ou dans la mémoire. Le résultat sera 
placé en AX. Par exemple : 


mul  al,lsi]l 


multipliera le contenu de AL avec le contenu de la 
mémoire pointée par DS:SI, puis placera le résultat 
en AX. 


Dans le cas des opérandes de 16 bits, la première 
opérandes sera placée en AX. Le résultat sera placé 
dans les registres DX (pour le mot de poids fort du 
résultat) et AX (pour le mot de poids faible du 
résultat. Par exemple, la séquence : 


mov ax,02003h 
mov bx,0300h 
mul ax,bx 


placera 60 dans le registre DX et 900 dans le registre 
AX. 


La division est quasiment identique, avec en plus la 
possibilité d’obtenir directement le reste de 
l'opération. 


Pour les opérations sur 8 bits, nous écrirons par 
exemple : 


mov al,083h 
mov di, 
div al,dl 


Ce qui placera 20h dans le registre AL et 3 (le reste) 
dans le registre AH. 


Pour les opérations sur 16 bits, nous écrirons pour 
diviser 80025h par 40h : 


mov dx,00008h 
mov ax,00025h 
moy cx,40h 
div ax,cx 


Ce qui placera 2000 dans le registre AX et 25 (le 
reste) dans le registre DX. 


Les opérations logiques 


Sur le Saturn, il n'existe que deux instuctions 
logiques : AND et OR (par exemple A=A&C ou c=c!8). Sur 
le 8086, d’autres instructions (OU exclusif, 
complément à 2 et inversion) ont été ajoutées. 


Les instructions AND, OR et XOR demandent deux 
valeurs, le résultat sera placé, comme précédemment, 
dans le premier opérande. Par exemple : 


and BYTE PTR [di],0FO0h 


annulera tous les bits du quartet de poids faible de 
l'octet placé en DS:DI 


Les instruction NOT et NEG fonctionnent sur une seule 
opérande. NEG effectue un complément à deux, alors 
que NOT inverse tous les bits de l’opérande. Par 
exemple : 


mov cl,00100101b 
not cl 


placera 11011010 dans le registre CL. 


Enfin, il existe une méthode rapide et économe en 
mémoire pour initialiser le contenu d’un registre à 0”. 
Il suffit d'utiliser xoR avec le même registre pour les 
deux opérandes. Par exemple, pour initialiser CX à 0, 
on utilisera : 


xor CX,Cx 


Les décalages et rotations 


Si les opérations de décalage et de rotation existent 
sur les deux microprocesseurs, leur mise en oeuvre 
comportent de nombreuses différences. 


Sur le Saturn, les opérations fonctionnent toutes 
(excepté rsR8) sur un nibble entier, que ce soit sur un 
champ spécifié ou tout le registre. Les instructions se 
suffisent à elles mêmes, et il faut les répeter dans le 
listing autant de fois que nécessaire. Par exemple, 
pour décaler le registre B de 3 nibbles vers la gauche 
nous utilisons : 


BSL VW 
BSL W 
BSL VW 


Sur le 8086, les opérations fonctionnes toutes sur 1 bit 
et le nombre de décalages ou rotations peut être 
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déterminé par une constante. Notre exemple peut 
donc devenir : 


sal bx,(3*4) 


si le nombre de rotations n’est pas connu à l’avance, il 
est possible d’indiquer le nombre de rotations dans le 
registre CL. Par exemple : 


mov dl,4 


mov cl,dl 
sal bx, dl 


Pour certaines opérations de rotation (RCL et RCR), 
l'indicateur Carry fait aussi partie de la rotation. 


Les tests, sauts et boucies 


Sur le Saturn, les intructions de test et les 
branchements sont liées par lobligation de faire 
suivre immédiatement après un test (?A=C B...), une 
instruction de branchement (Goyes..). Ceci est dû au 
fait que ces instructions sont assemblées de facon à 
obtenir un seul opcode. Sur le 8086, par contre, les 
instruction de test et de saut sont totalement 
indépendantes. 


L’instruction CMP compare deux opérandes (en fait 
simule une soustraction) et met à jour différents flags. 
Il est ensuite possible d’effectuer une instruction de 
saut conditionnel, dont la mnémonique est de la 
forme Jcc avec ’cc’ correspond au type de test que 
nous souhaitons utiliser. Par exemple : 


cmp bx, dx 
jne Label 


Label: suite de l’exécution 

testera le contenu de BX et DX et continuera 
l'exécution du programme à l'adresse spécifiée par 
l'étiquette Label, si le résultat du test indique que le 
contenu des deux registres est différent (not equal). A 
propos, cet exemple nous permet de mettre en place 
la notion d’etiquette. Il n’y a pas de grosse diférence 
par rapport à l’assembleur Saturn, excepté le fait que 
l'etiquette doit être suivie d’un caractère ”:’. 


Notons aussi que, pour les besoins de l’article, j'ai 
utilisé le mot label comme nom d’étiquette. En 
réalité, ce mot est réservé par l’assembleur et ne doit 
donc pas être utilisé comme étiquette dans un 
programme. 
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Une autre instruction, TEST simule un AND sur les deux 
opérandes, ce qui permet d’effectuer des opérations 
de tests de bits. Par exemple : 


test BYTE PTR es:[si],00101000b 
jnz label 


effectuera un saut si Les bits 3 et 5 de l’octet 
situé en ES:SI sont armés. 


Parmi Les autres instructions de saut conditionnel, 
on peut citer : 


JE/JNE saut si égal / non égal 
JA/JNA saut si supérieur (Above) / non supérieur 
JB/JN8 saut si inférieur (Below) / non inférieur 


JAE/JNAE saut si supérieur ou égal/non sup ou égal 
JBE/JNBE saut si inférieur ou égal/non inf ou égal 
JZ/JNZ saut si Zero / non Zéro (flag Z armé) 
JC/JNC saut si flag Carry armé / non armé 


Toutes ces instructions effectuent un saut relatif dans 
un espace compris entre -128 et +127 octets à partir 
de l'instruction de saut. 


De par leur utilisation des flags, ces instructions 
peuvent être utilisées après d’autres instructions, par 
exemple les opérations d’addition ou 
d’incrémentation. Par exemple : 


mov cx,5 
Label : 


dec cx 
jnz Label 


effectuera 5 fois la boucle commançant par label. 


Dans le cas de notre exemple, où nous utilisons le 
registre CX, il existe une instruction, LOOP, qui 
effectue le même travail, mais en utilisant ce registre 
privilégié. Notre exemple peut donc être réécrit de la 
façon suivante : 


mov cx;5 
Label : 


loop Label 


L’instruction de saut non conditionnel est nommée 
JMP. Contrairement aux instructions de saut 
précédemment citées, il n’y a pas de limite de 
distance entre le saut et le label. Pratiquement, et afin 
d'obtenir un code le plus compact possible, il faut 
seulement spécifier la distance de la façon suivante : 


imp SHORT Label 
assemblera un saut relatif, dans l’espace compris 
entre -128 et +127 octets. 

jmp NEAR Label 


assemblera un saut relatif, dans l’espace compris 
entre -32768 et +32767 octets. 


jmp FAR PTR Label 


assemblera un saut absolu, en stockant l'adresse du 
label sous la forme segment:offset. 


Par analogie au Saturn, les trois instructions 
précédentes peuvent être assimilées respectivement à 
GOTO, GOLONG et GOVLNG. 


Il est également possible d’effectuer un saut indirect, 
basé sur le contenu d’un registre ou d’une variable 
mémoire. Par exemple : 


mov bx,0C32Fh 
jmp [bx] 


continuera l'exécution du programme en CS:C32F. 
Sur le Saturn, nous aurions utilisé une astuce 
consistant à empiler l’adresse désirée, puis forcé unr 
retour de sous programme : 


LCHEX C32F 
RSTC=C 
RTNCC 


Les Sous-programmes 


Les appels aux sous-programmes sont bien sûr 
disponibles sur le 8086. L’instruction d’appel, appelée 
CALL obéit aux mêmes règles (y compris l'appel 
indirect) que l'instruction JM. La seule exception est 
qu’il n’y a pas de saut SHORT. 


Les équivalences par rapport au Saturn sont donc 
GOSUBL et GOSUBVL. 


Nous devons encore une fois indiquer la portée du 
saut, suivant la distance du sous-programme par 
rapport à l'instruction CALL. 


Mais, contrairement à ce qui existe sur le Saturn, 
nous devons spécifier aussi, pour le retour au 
programme appelant, par l'instruction RET, de quel 
type de retour il s’agit. En effet, l’intruction CALL NEAR 
place sur la pile seulement loffset de l'instruction 
suivant le cALL (c’est à dire la valeur du registre IP), 
alors que CALL FAR stocke la valeur du registre CS en 


plus de IP. Au retour du sous programme, il faut donc 
savoir si l’on doit seulement récupérer IP ou CS:IP. 


Nous devrons donc indiquer après RET le type de 
retour que nous voudrons effectuer. Par exemple : 


call FAR procedure Empile CS:IP 
. et lance procedure 


procedure: 


ret FAR Dépile CS:IP et 


revient à l'appelant 


Il n’existe cependant pas, sur le 8086, de possibilité de 
retour conditionnel équivalent aux instructions RTNC 
ou RTNYES du Saturn. 


Les opérations de chaînes 


Nous avons vu précédement différentes instructions 
permettant de charger ou déplacer un octet ou un 
groupe d’octets, en utilisant mov et les instructions de 
contrôle de boucles. Le 8086 possède cependant un 
jeu d'instructions supplémentaires permettant de 
charger, déplacer ou tester jusqu’à 65536 octets en 
une seule ligne de code ! 


Combinant une instruction de manipulation de 
donnée et une fonction d’incrémentation (ou 
décrémentation) de pointeur en une seule instruction, 
elles sont toujours plus rapides et plus compactes que 
le groupement des instructions pré-citées. 


Supposons que nous voulons déplacer 16 octets de 
l'adresse de départ située en ES:DI vers l'adresse 
DS:SI. En utilisant les fonctions classiques, nous 
pouvons écrire : 


mov cx,16 


label: mov al,fsi] 
mov es:[di],al 
inc si 
inc di 
loop Label 
Avec les fonctions de chaîne, nous pouvons 


maintenant écrire : 


cld 

moy cx,16 
label: lodsb 

stosb 

Loop Label 
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LoDs8 est equivalent à : 


mov al,{si] 
inc si 


et sTosB est équivalent à : 


mov es:{di],al 
inc di 


Notons que ces nouvelles instructions ne fonctionnent 
qu’avec les registres utilisés dans cet exemple, et pas 
avec des combinaisons différentes. 


Les instructions utilisent en outre le flag de direction 
D’. Ceci permet de déterminer dans quel sens doit se 
faire l’incrémentation des pointeurs SI et DI. Si, 
comme dans notre exemple, le flag D est désarmé (en 
utilisant Vlinstruction cLo, les pointeurs seront 
incrémentés (exécuterons inc si ou inc di). Par 
contre, si le flag est armé (par st), les pointeurs 
seront décrémentés (exécuterons dec si ou dec di). 


A ce point, il est cependant possible de faire un peu 
plus rapide. En effet, nous avons un nombre pair 
d’octets à transférer. Il serait donc interessant de 
travailler avec deux octets à la fois plutôt qu’un. Ceci 
est possible en remplaçant LoDSB par LODsW et STOsB 
par STosu. Ces instructions travaillent avec le registre 
AX à la place de AL, et incrémentent/décrémentent 
SI ou DI de deux unités. L'exemple peut donc être 
réécrit de la façon suivante : 


cld 

mov cx,8 
label: Lodsu 

stosw 

Loop Label 


8 mots = 16 octets 


Comme nous n’effectuons pas de traitement sur les 
données transmises, il n’y a pas d’instructions entre 
LoDsW et STOSW, nous pouvons utiliser l'instruction 
MovsW, qui déplace un mot de adresse située en DS:SI 
vers ES:DI et incrémente SI et DI. Notons cette fois 
ci qu'aucune donnée ne transite plus par AX, qui 
n’est plus modifié par la routine qui devient : 


cld 

mov cx,8 
label: movsw 

Loop Label 


Enfin, notre boucle n’exécutant que l'instruction 
MOVSW, nous pouvons utiliser le préfixe REP, qui permet 
de repéter une instruction des instructions de chaîne 
décrites dans ce chapitre (et non les autres 
instructions). Cette répétition s'exécute en 
décrémentant le registre CX, et tant qu'il est 
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différent de zéro. Notre exemple devient donc 
finalement : 


cld 
mov cx,8 
rep mOovsw 


A titre indicatif, notons que la première version de cet 
exemple aurait nécessité pour son exécution (hors cLD 
et initialisation de CX) 628 cycles d’horloge, alors que 
la dernière version n’en utilise que 145! 


Les Entrées-Sorties 


Sur le Saturn, les fonctions d’entrées sorties 
dépendantes du matériel sont très limitées. Les 
fonctions À =IN et c=1N lisent le registre IN, connecté 
au bus système, alors que ouT=c écrit dans le registre 
OUT, lui aussi connecté au bus Systéme. 


Sur le 8086, par contre, les instructions IN et out 
permettent d’accéder à un espace mémoire parallèle 
à la mémoire vive normale. Limité à 64 Ko, cet 
espace est sonstitué d’unité appelés ports. Sur le PC, 
les périphériques sont accessibles par ceux-ci. Par 
exemple, la première imprimante parallèle occupe les 
ports 378 à 37F. 


Les instructions liées aux ports utilisent une fois de 
plus des registres fixés à l'avance. AL ou AX doit 


- contenir les données à envoyer ou à recevoir, selon 


qu’il s’agit d’un octet ou d’un mot, et DX doit 
contenir le numéro du port, si il n’est pas spécifié en 
constant. Par exemple, pour écrire un octet de valeur 
242 dans le port 2F8, on ecrira : 


mov al,242 
mov dx,2f8h 
out dx,al 


ou plus simplement : 


mov al,242 
out 2f8h,al 


Pour lire un octet sur ce même port, nous écrirons : 


mov dx,2f8h 

in al,dx 
ou 

in al,2f8h 


Les interruptions 


Pratiquement limitées, sur le Saturn, à la gestion 
d’évenements aléatoires (gestion du clavier, 
demandes de services de la part des périphériques...), 
les interruptions ont un rôle capital sur lIBM PC, 
pour tout ce qui concerne les accès avec le DOS et la 
Rom. En effet, si sur le HP-71 les appels aux 
fonctions de la Rom sont effectués par de simples 
appels à des sous-programmes, par des Gos8vi, il en 
est tout autrement pour l’IBM PC. En effet, les 
concepteurs du PC, prévoyant de nombreuses mises à 
jours du système, ont vite réalisé qu’il ne serait pas 
possible de maintenir un système possédant un très 
grand nombre de points d’entrées supportés. Ils ont 
donc décidé d’utiliser le mécanisme des interruptions 
pour accéder aux ressources systèmes. 


Ce mécanisme est basé sur la possibilité du 
microprocesseur de se brancher à une adresse 
d'exécution à la suite d'un événement imprévu 
(activation d’une ligne du bus, par exemple), quitte à 
revenir au programme une fois que la routine est 
terminée. 


Sur le 8086, 256 interruptions différentes peuvent être 
gérées. Les adresses de départ des routines de 
traitement (appelées vecteurs d’interruptions) sont 
stockées dans un tableau occupant les 1024 premiers 
octets de la mémoire vive. Chaque case du tableau 
contient l’adresse complète (segment+offset) de la 
routine de traitement. 


Lorsque une interruption survient, par l’action d’un 
événement extérieur ou un appel au système par le 
programme, le déroulement est le suivant : 


- Stockage de la position du compteur progamme 
(CS:IP) et du registre des flags dans la pile. 

- Acquisition du numéro de l'interruption venant 
d’être activée. 

- Calcul de la position, dans le tableau, du vecteur 
correspondant à ce numéro. 

- Lecture de ce vecteur \- Stockage du vecteur dans 
CS:IP. 


Toutes ces opérations ont été effectuées par le 
microprocesseur, sans qu'aucune ligne de programme 
ne soit effectuée. A partir de ce moment, l'exécution 
continue dans la routine d'interruption, de façon 
classique, comme n'importe quel sous programme, 
jusqu’a une instruction de retour de sous programme 
spéciale nommée IRET, qui effectue les actions 
suivantes : 


- Dépilement du registre des flags. 
- Dépilement de CS:IP. 


A partir de ce moment, CS:IP étant revenu à la même 
valeur qu’au début de l'événement, le programme 
peut continuer comme si il ne s'était rien passé, à 
condition toutefois que la routine d'interruption aie 
éventuellement remis les registres qu’elle a utilisé à 
leur valeur initiale, car le processus de bas niveau 
gérant les interruptions n’effectue pas de sauvegarde 
des registres. 


Si la routine d'interruption qui vient d’être éxecutée 
ne correspond pas à nos besoins, il est tout à fait 
possible de la remplacer par un programme que nous 
plaçons résident en mémoire, en remplaçant l’ancien 
vecteur d'interruption par l’adresse de départ cette 
nouvelle routine. 


Il est aussi possible que nous voulions que cette 
nouvelle interruption n'effectue qu’un travail de 
préparation, avant de laisser l’ancienne faire son 
travail. Ceci est possible si l’on prend soin, juste avent 
de stocker le nouveau vecteur, de sauvegarder 
l’ancien. Pour passer le contrôle à l’ancienne routine, 
il suffira d’exécuter un JMP FAR sur cette adresse. 


En étendant ce principe à l'infini, il est ainsi tout à fait 
possible d'imaginer un mécanisme équivalent aux 
poll-handlers du HP-71 qui permettrait, par exemple, 
d'interroger tous les programmes résidents en 
mémoire afin de connaitre leur numéro de version. Il 
suffirait pour cela d’utiliser une des nombreuses 
interruption qui n’ont pas d’affectation définie. 


Nous avons vu comment était géré un évenement 
imprévu, mais nous pouvons aussi déclencher par 
programme l'interruption de notre choix. Par 
exemple, si nous voulons déclencher l'interruption 
numéro 11h, il nous suffira d’écrire : 


int 11h 


En ce qui concerne l’appel des fonctions BIOS ou 
DOS, le principe est tout à fait le même que pour le 
HP-71, à savoir charger les différents registres avec 
les valeurs adéquates. Puis, au lieu de lancer 
l'exécution par un GOSBVL fonction, on exécute 
INT numéro interruption. Ensuite, le cas échéant, il n’y 
a plus qu’a recupérer le résultat dans les registres ou 
tester le Carry. Pratiquement, ces fonctions sont 
regroupées par familles (fonctions vidéo, accès 
clavier...) à l'interieur d’une même interruption et 
accessibles, de façon conventionnelle, par un code de 
fonction à placer dans le registre AH. Par exemple, 
pour tester l’etat de la première imprimante, il faut 
utiliser l'interruption 17 (Fonctions imprimantes) et la 
fonction numéro 2. Après examen de la 
documentation, nous entrerons 2 dans AH, le numéro 
de l'imprimante dans DX et exécuterons INT 17. A la 
ligne suivante, nous pourrons tester le registre AH, 
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qui contient le résultat de cette fonction et agirons en 
conséquence. 


En utilisant les interruptions, il est tout à fait possible 
d'imaginer un mécanisme équivalent aux 
poll-handlers du HP-71 qui permettrait, par exemple, 
d'interroger tous les programmes résidents en 
mémoire afin de connaitre leur numéro de version. Il 
suffirait pour cela d'utiliser une des nombreuses 
interruption qui n’ont pas d’affectation définie, et 
d'installer une routine d'interruption dans chaque 
programme. 


C’est après ce chapitre, long mais capital pour ceux 
qui désirent développer sur PC, que nous nous 
quittons aujourd’hui. La prochaine fois, nous 
commencerons à voir la façon dont les programmes 
doivent être écrits, afin de pouvoir utiliser les 
instruction que nous avons vu aujourd’hui. 


Jacques Belin (123) 
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DE L'ECRAN AU JET D’ENCRE 


Le mois dernier, je vous ai présenté des utilitaires de 
conversion de caractères pour la ThinkJet connectée 
à un IBM PC, par l'intermédiaire de le carte 
HP-LINK. Au cours de l’article, j’ai mentionné le fait 
que les drivers existants ne permettaient pas 
d'effectuer des impressions d’écran. Depuis, je me 
suis penché sur le problème et vous présente donc 
cette fois-ci un utilitaire résolvant ce problème. 


Le principe général de fonctionnement du 
programme étant le même que pour TIR8, que j'ai 
présenté le mois dernier, je ne préciserai ici que la 
partie spécifique à l’impression d’écran. 


Celle ci est activés par l’appui de la touche Prt ser, en 
générant l'interruption numéro 5. Normalement, cette 
interruption est redirigée vers le BIOS, qui effectue la 
totalité du traitement, en envoyant les données vers la 
première imprimante, en utilisant l'interruption 17. 
Or, nous avons vu le mois dernier que cette 
interruption n'était pas prise en compte par les 
drivers HP-LINK. Il est donc nécessaire de créer un 
programme effectuant le même traitement que le 
BIOS, mais redirigeant les sorties vers stdprn, plutôt 
que l'interruption 17. 


Pratiquement, nous redirigeons l'interruption 5 vers 
notre programme. Une fois activé, il lit le contenu de 
la mémoire écran (en sautant les octets d’attributs de 
couleur), et sort les caractères vers stdprn. Notons 
que j'ai été obligé de recourir à un traitement un peu 
complexe, en stockant les données dans un buffer 
avant d'utiliser la fonction 40 du DOS, pour la sortie 
vers stdprn, Ceci est dû au fait que la méthode, plus 
simple, utilisant la fonction 5 du DOS, plantait en fin 
d'impression. Probablement à cause d’un problème 
de réentrance du DOS. 


Il faut prévoir d'interdire l'exécution d’une nouvelle 
impression d'écran, lorsqu'il y en a déjà une en cours 
de traitement. Ceci peut être fait très simplement en 
armant un flag au début du programme, flag qui sera 
désarmé en fin d’exécution. Pour cela, il aurait été 
très simple de réserver une variable dans le 
programme, mais il existe une méthode plus standard. 
En effet il existe à l’addresse 50:0, dans la zone de 
mémoire vive réservée par le BIOS, un octet 
spécialement prévu à cet effet. Si il est égal à 1, cela 
indique qu’une impression d’ecran est en cours. En 
utilisant cette variable, je peux ainsi cohabiter 
éventuellement avec d’autres programmes identiques. 
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La ThinkJet permettant d'imprimer jusqu'a 142 
colonnes, j'en ai profité pour ajouter une possibilité 
supplémentaire celle d'imprimer des écrans 
comprenant jusqu’à 50 lignes de 132 colonnes. Ceci 
est fait en récupérant les valeurs adéquates dans des 
variables du BIOS. 


Le problème avec cette possibilité est que ces modes 
étendus ne sont pas standards. Etant donné qu’il 
m'est impossible de connaitre toutes les cartes vidéos, 
je ne peux bien sûr pas connaitre le code des modes 
qu’elles utilisent. Ceci implique que je n’effectue pas 
de test sur le mode utilisé, et ne sait donc pas si nous 
sommes en mode Texte ou graphique. 


Il vous faudra donc faire attention de ne pas appuyer 
sur la touche Prt Src pendant des applications 
graphiques. 


De toute façon, un programme gérant les différents 
modes graphiques vidéo, plus le graphisme sur la 
ThinkJet, aurait été autrement plus complexe que 
celui que je vous présente ce mois ci. 


Vous pouvez noter que ce programme ne comporte 
pas de routine de conversion de caractères. Vous 
devrez donc charger le programme TJR8 avant 
d'utiliser TJPs. Il aurait bien entendu été possible 
d’ajouter la routine de conversion à TJPs, ou même de 
faire un programme combinant toutes les possibilités 
des deux programmes, mais quelques raisons m’ont 
incité à faire ainsi. Premièrement, il est ainsi possible, 
pour ceux qui possèdent une autre imprimante 
connnectée au port paralèlle, de choisir sur quelle 
imprimante se fera la sortie écran, suivant que le 
résident est présent ou non. D’autre part, TJPs peut 
très bien interesser quelqu'un ne possédant pas de 
carte HP-LINK, mais possédant par contre une 
DeskJet ou une LaserJet. En effet, la ThinkJet étant 
compatible PCL, Ce programme est tout à fait 
approprié pour imprimer des écrans en 132x50 sur ces 
imprimantes. Enfin, les programmes étant très 
compacts (moins de 1500 octets à eux deux) il ne 
valait peut-être pas la peine de faire un seul 
programme qui aurait été un peu plus complexe à 
faire. 


Quoi qu’il en soit, j'espère que ce programme vous 
sera utile. 


Jacques Belin (123) 


(1eWJoU+31UI31) 211199 R 532320 /:° 
(usdp1s) # OJAUNU 2]puey JNS 21n}1139: 
21puey Jns 2Jn31J29,P UOLJIUO} * 
111UL9J, ouIey2 2p eSS2Jpe 26Je49 uo: 


e1onoq uo ‘oz 2P JU2193H1P<- n42 22Pn 18: 
o2e]1d Us dq 2]1A jeu uo: 


auBl] 221pUl UO1}8}Uau9199p: 
2)puey Jns 24n}1192: 

Co 252 sd) xd:SQ U2 J2}Jnq np 2sS2Jpe: 
41/Y2 NP S912328J89 2 Sa] Jo3nofe: 
0 8 U2 21330: 

sauuo]09 2p 2Jquou np UOL381?dn29.1: 
(usdu3s) 21puey np oJaunu: 

a)pueH Sup 2Jn)1128,p UOLJIUO: 
J933nq Suep 41 Un,P 26842015: 
J9}Jnq SUP 212398J89 UL8U20Jd: 
J933nq SUuep y) UN,p 26842035: 
a12noq uO ’oJ9z ap JU219}41p 1S* 
auu0]02 321pUL UOLJ8}USSJ99p: 


O9PLA 2110 SUBP 312398J82 ULEYI0Jd: 
J3}3nq SUep 21232889 ULey20oud: 

J934nq SUEp 91239889 J96JeU92: 

219198J89 NP UOLJEUJ0}SUEJ] + 

ones Uo ’ino: 

é 2£ 8 JnalJedns 2123281892 2P09: 

219298J89 941]: 

LS Suep J23nq 2ssaJpe 26849015: 

Je suep sauuo]02 2p 21quou np UO138174Mm29J: 


3rHULUL uoijeunBijuos Jnod sog ne 2dde: 
911199 R S32390 G: 

(usdp3s) # OJaunu 2]puEy JnS 2/n31199: 
a)puey Jns 3Jn31199,Pp UOLJ2U0: 

1PSiduo2, auley2 2p 2sSsupe 261849 uo: 


1leuJou, suley2 ap assaspe 261ey2 UO ‘uou: 
seq snjd ea uo ‘’ino: 
& S294213J2 SaUU0]09 08 9p sn]d' 


1Pepuedxs, auley2 ossaJpe 26Jey2 Uo ’ino: 
seq snj]d eA uo ‘ino: 
ë Se9U213J8 SaUU0]02 0ÿ ap sn]d' 


S2 = sa 

dq suep xq spJebaanes: 

18 _ Hg _ ‘ 
sauuo 02 qu|seubi) qu : 2u0p ju213U02 xg:° 
yq suep: 

seul] 2p aJquou np 268%203S: 

1q: 


suep sauu0]02 2p 2Jquou np 268%201S: 
2A11928 Bed Jns 395340 96e%203S: 


S3 SUep O3pLA 2ssaJpe juaubas 26842015: 
0088 = O3PLA WeJ assaJppe ‘uou: 


0008 = O3PLA WeJ 2ssaJppe ‘1n0* 


4°x2 

Y°xq 

yo ,ue 

AiuLaJ 3283J0"xp 


ul) doo] 

x2‘dq 

yo 

dq'x2 

yLe 

Jeuy333nq 325330 xp 
2119 

2'9 

dax 

07" 

OL"CLS] 43 21/9 
is 


£L't1s] J3d_23Âq 
102 doo] 


Oz" 1P 

[1P]1:S8 1P 
Jeu2}nq 395440"1S 
dg'xe 


LITA 

G'x2 

doi" 

ye 

psiduos 35s3J0"xp 
polis103S 

JeuJOU 32S}40’Xp 
S1092€Lu 

08 1q 

pous103s 

popuedxs 125440 "xp 
S1020gu 

07 1q 

xe’sp 

s2'xe 


xq'dq 


uq 
[LS] ‘’uq 
yyg'1is 


[LS] ‘xq 
yvy' is 


[LS] °1p 
y3y°1s 
xe’sa 
y00880‘xe 
ppeA 392s 
y00080"xe 
gq ppe 


AOUI 
Aoû 
AOUI 
AOU 


zuf 


au! 
AOU 


AOU 
AOU 


Aou 


AOUI 
AOU 
duf 
AOU 
auf 


:1869] 
:102 doo) 


:u1) doo) 


:polSJ103S 
:S]092SLU 


:S1090gu 


ë AS = 110d essaupe: 

O9PLA 34J0d np 2SS2Jp8 21n)22]: 

B1JU02 Jns SOJUL S2Pp JU21}U09 DY JUawbas : 
suoljdniJaqut S2] 251J03n8 Uuo: 

6e) 5) ouJe uo ‘’uou: 


suwes6osd np 3105 Uo ’ino: 
euweJBosd 2] enuLjuo2 uo ‘’uou: 


sJno2 US 8[9p Us212s juiJd 1S 359): 


S31S169J Sp 2pJeBaanes: 


aumesñoid np Uo13821313U2PI* 


yyaçso’xq dus 
[iS]’xq Aou 
ygg'is Aou 
x8’Sp AOU 
y0Y00’xe AO 


L'LiS)] 423d 234q où 
auie duf 


diys auf 
L'ELS] sad L du 
1S’L1S 4JOX 


xe’Sp AOÛ 
uOs00’xe Aou 


ip ysnd 
sa ysnd 
is ysnd 
sp ysnd 
dq ysnd 
xp ysnd 
x2 ms 
xq y 

xe ysnd 

gysnd :,711dmau 


nSdu 4 


L_1admou jJous duf 


Je 20o4d LJdmau 


======= (9JLOUQU US 23524) sJueulJdul Uo1}dniJajUL 2]]SANOU 8] 1910A ==" 


JaWLJdut 8 S212328J89 SP J3}4nq: 

19MHULUL JNS SaUU0]09 2#L 2poll U0132219S: 
32/XULUL JNS S2UU0]03 0Y Poll U01392]9S: 
32rXULUL JnS SaUU0]02 (8 2POW U01322)9S: 
(ewJou+j1u124) uoisseidul ul; auLey2: 

191 ajuosgud 2Jj2 }10p Sieu 99S1]L3n UON: 
SO “JJajUL,P 1n9399A JUaWBSS 9p 2SS2Jpy: 
uso Uotdni1aqui,p 1n8398A }9S4J0,P 2SS2Jpy: 
uso Uo1dniJsqui,p J1N2322A USLOUY: 


(é) dnd QSL qP 1ey233nq 
nS2X3u 22 JP  PSIAWOI 
uSLYPn'2Z2 dP popuedxa 
nSOYPn" 22 AP Jewiou 

OL'EL qP 3JiuisJ 
Cë) gp 41114 


C(é)  Mp juiouebes 
(ë) MP jAuiaues}o 
piomp siy3 nbs auioue 


zz========================22222222222= (9JlOUHU US ju91S2J1) ssauuog ==! 


993n29%x2 UoL32nJ3SUL 912lWo1d 87! 


opos:ss ’2p02:52 


3009 2P juauB2s np UOLJIUL}20* 


sd” jiut duf :3481S 
‘apo2:sp ‘2p02:S2 SUnsse 
uoot 640 


13009, eJed juaubss 2po9 


ssss2======2S=22222=2==2=2222222= 9]qe])lI9A auuesB5oud 9) S2USULOI 19] ==! 
DA 
++ #M° 
ax 26/80/50 :*}!pou 3121u13q +! 
“+ (18U92S11 198491W 2P OJUd Saude,p) ..° 
. u{j28 senboer : Jnoiny 26/80/50 21 Uol1e99 ss! 
*+ *+° 
+ XNI171-dH Jed J2fAUIUL JnS UBJ93,p uoisssJdu] +! 
"+ sSdri #4 


D AP AA AD AO DE OO EEE EE A OS NS A NE ANR EE EE EEE EEE AR EE ARE EE © 


JPC 79 Page 35 








Sdfi auusloue,] 2p: uéy'ye AOÛ 
9J1OUQU 8] NESANOU BR J313q11: xq’sa AoU 
AueuuoJLAUS U319Ue ,p: yLe qui 
2JLOUU NESANOU R 19J9q171: uyér'uye AOÛ 
AUSUSUUOJLAUS,] 2p *62S “Jp8 dSd NP J211)9y! [y22]1:S2’sa Aoù 
1183s pus auweJBoid np juauB2s 2p 2SSaupe JaËuey! sa’xq AOU 
3002 9p juewBas np u14: spus 2p02 
aul}noj auuslaue Jns: yLz qui 
SRSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSESE===========2===2==2=2=222= Uli ==! uco uol]dniJajut ,p JN93)93A NUS]U09 J32e day: ucOoGz Xe AO 
sq suep: xe'sp AOÛ 
*JBoid Jauliwss3 Jnod uoijouoz Jaeddy! uL2 jui uso uol]dniJajul,] op jUuaWB2s ap 2ssaJpy! quioueBas:sa’xe AOÛ 
AuaW5)291J09 auseBoud JoulLWJs] ! uy002%"xe AOU yso Uoljdnilajul,] 2P 325S3J0,P 2SSaJpy! auisuesjo:sas’xp AO 
sog uoljouoy J2e1eddy: YEZ QU À... ess... Sdfl 2P UO1]8A139859Q --{ 
euLeuy2 J113J0S Jnod Uo1j9u0} 2p oJaunn! é'ue Aou 
J19]183SULS9P JUauWo9 : 26eSSaW! Sp 0] ]2S/J0’Xp AOÛ 1SuL "jou <-- 9]]8]SUL gyyri op sed! asu17jou auf 
Sog uoijouoz J2)eddy: ULz jui Sdri auwelboid 1S 191591! ndSn’[2+Xq]:s9 J1d piom dus 
eu|ey2 J13J0S Jnod UO1]2U0J 2p OJAUNN! é'ye Aoù sod Uolj2uoz J21eddy: yLz qui 
211e3sut efop auwesBoud : oBessay! Apessje ]2S3J0/Xp AoU “{p ys0 UoijdniJajul,p Jn2}29A nu9JU09 2117: uysosg'xe Aou 
:3suL ApeaJje 
J3]1]21SUL,] BA Uo uou: Jieisut ouf 
= 1108 uo }2 oBessau 2421348 UO : 91181SU1 R[9p 352 Sdfi --: à 29PUBWSP U0138)8]SULS9P* nfn'[1S] 134 2344 du 
LS Jul 
AUSPIS9J 191S9J S1eu: yL2 jui aJjeuesed JalWeuid 2) JnS nlSy op 26e)829p! is ul 
(1°0) O UL} ep opos Jed ouwesBoud JoulWa yOOL£'X8 AOÛ 2]]23suL uo ‘’uou! Jieisut af 
xp out é SoJjeuesed Ssp ]1-} e 4: Oo’[is] 41d 234q dus 
12'XP Jus dSd Suep aJjaweied jnq2p Jns 22e)d! geL'is Aoù 
ausesBosd 3) Josodsip 310p juop (532120! ‘12 Aou 
9L ep s?3lun) seudesBesed ap aiquou J2]n2]e2{ pusjsul 32sJJ0’Xp Aou Jeou joqe] Jd”jiul 
------ *S2]U9PLS9J J2]S9J JUSALOP SaJuepuodsa1109 saguuop --! nm UOl)8SL]8LJLUL ]2 JUSUBSUE] sp auLnoy --! 
S2] 19 uoljdniisqut,p aul3n0J 2]]2ANOU 8] ‘dSd 2] S)naS --! ===========2==2====22222222= (SO0OQ 2) Jed 922}J9 91]9 ] ) auweiBoig ==: 
sog uoljouo J212ddy: uLe qui n$u'OL'£L'n?A1398S9P 152 Sdflu AP  aUIWL)9 
euLeuy2 J1}10S Jnod UO|}2U0} 2p OJAUNN: es é'ue Aou 
J3]]81SULS9P JUSUMWOI : 9BESSEW: S2p 0] ]2SJJ0’XP AOU n$u'OL"£L "un Sdfi © J3A1398S9P 9] JnOdu  dp sap 0} 
Sog uolj2uoz J212ddy: yLz jui n$n'OL £p n°91)83sul e[9P 152 Sdfln'OL'EL OP  Apeal1e 
auLey2 J1310S Jnod UO1}2U04 2p OJaunN! é'ue Aoû n$n'OL'£L'n°?1182SUL 352 Sdrln OL'£L PP wyje1su! 
21181su1 ouwesBoud : oBessay: W))2}SUL }9SJJ0’Xp AOU 
Jna3esl]lin auLJnoJ Jns: uLe jui ==============22=22222222 (SO0OQ 9) Jed S2928J9 21]9 juaAnad) saguuog ==! 
uso Uol]dnJJaju1,p JN2329A np nua}u09: uysocz'xe AOÛ 
*JJojul,p aul3noJ 2]]J2ANOU }2S30,P 2SS3JpY:  Llidmau j9SJJ0‘xp AoU AU3p1S9J J9]S9J JL10p 3n0]! 
2J1OUU 2p 2]n]]29 21199 e,nbsnr! 234q siy3 nbs  puszsul 
ysO Uo1]dnJ13}UI,Pp JN2)29A J9Buey: xq'iul2ues}jO AOÛ 
19S}J0,P 12 juaubas 9p sassaJpe J9oBuey! sa'juisueñss AOU dpus LJdmau 
1suL Apesije <-- 2]]e1su1 ef3p gaur1* 3su1”Apessje of uoljdniJajul,p au13noJ e) 2p ui! 3o41 
Sdri owwesBoid 1S 123S21: udSn”'[2+Xq]:S2 J1d pJoM du 
Sog uoljouoz J1312ddy: yLe jui 4dod 
ysO Uol]dniJaj}u1,p 1n2)23A nus}U03 31171 uysosc'xe Aoû xe a 
xq 
Jeou ]2qe] J)e23SUL x2 dod 
xp dod 
sms. mms Sdfi 2p uolje]je3su] --: dq dod 
sp dod 
*JBosd JoulwJs3 Jnod uoijouoz J2)eddy: ULZ jui is dod 
Auau#)929JJ09 aumeJBosd JoulW4s 1]: uy002%"xe AOU sa dod 
Sapiebaanes S21]S169J 131139: ip dod saute 
sog uoljouoz J212ddy: yLe jui 
auLey2 211123 Jnod Uotj2U0} 3p OJAUNN: é‘uye Aou 5x o‘fis] J3d 934q Aow 
guiu1]2 ouwesboud : 26eSsoy: oulul]2a 32SJJ0/XP AOÛ :3SUL jou iS’1S JOx 
xe’Sp AOÛ 
sa SUEP Jouauey: sp dod u99J92s juiud 9p Be]} np juau2e}42! u0s00'xe AO sul} 
e)1d 8] Jns S2 Jeanes! s2 ysnd 
Sog np Ué UO1J2U0} B] SJ2ABJ] 8! yL2 jui 3erxuly1 3iu124 Jnod sog ne Jedde! yLZ jui 


JPC 79 Page 36 





Le Journal JPC est le bulletin de liaison entre les 
membres de l’Association "PPC Paris", régie par la loi 
de 1901 et indépendante de tout constructeur ou 
société commerciale. Le Club est éditeur de JPC, et 
son siège social est au 56, rue Jean-Jacques Rousseau, 
75001 Paris. 


La maquette de ce numéro a été préparée et réalisée 
par Jacques Belin et Asdin Aoufi. 


Les dessins sont de Jean-Jacques Dhénin et Paul 
Courbis. 


Les informations et programmes parus dans ce 
journal sont publiées "Tels quels" et ne peuvent en 
aucun Cas engager la responsabilité de 
Hewlett-Packard ou de PPC Paris. Hewlett-Packard 
se réserve le droit de ne pas répondre aux questions 
concernant le sujet de certains articles. 


Les programmes publiés peuvent être utilisés 
librement. Cependant, ils ne peuvent être vendus ou 
fournis dans un ensemble commercialisé, sous 
quelque forme que ce soit, sans l'accord écrit de 
l’auteur ou de PPC Paris. 


Directeur de la publication : Jacques Belin 
Numéro ISSN : 0762 - 381X 


Veuillez adresser toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01. 


